マクロについて。S列の途中からデータがある最終行まで消したいのですが、 Range(”S8”,Cel

マクロについて。S列の途中からデータがある最終行まで消したいのですが、

Range(”S8”,Cells(Rows.Count,1).End(xlUp)).Select

Selection.ClearContents

と書いて実行すると
A〜S列丸ごとデータが消えてしまいます。

S列のみ消したい場合はどうすればよいのでしょうか？

ネットも探していますが列の最終行までっていうのがなかなか見つからず困っています。
どうかご教示ください。

質問者からの補足コメント

• S列全部じゃなく、途中から最終行までなので、難しいです…

    補足日時：2017/01/05 17:06

• 言い忘れてました。データは所々入っていて、連続ではありません。

    補足日時：2017/01/06 09:48

No.4 ベストアンサー 回答者： t_fumiaki 回答日時： 2017/01/06 12:44

途中に空白があるなら、基準となる最下位行から上に検索して最終行を求めないとイケナイ。

Range("S8:S" & Range("S1").Range("S65536").End(xlUp).Row).Clear

.End(xlUp).Row
↓
.Range("S65536").End(xlUp).Row

No.8 回答者： kkkhh 回答日時： 2017/01/08 15:09

s列は19列目なのでRange("s8",Cells(Rows.Count,19).End(xlup)).SelectもしくRan

ge("s8",Cells(Rows.Count,"S").End(xlup)).Select

No.7 回答者： kkkhh 回答日時： 2017/01/08 14:50

綴りが間違っていました。

Range(Range("s1").End(xldown),Range("s140000").End(xlup)).Value＝vbEmpty

No.6 回答者： kkkhh 回答日時： 2017/01/08 14:48

Range(Range("s1").End(xldown),Range("s140000").End(xavier)).Value

＝vbEmpty

No.5 回答者： ママチャリ 回答日時： 2017/01/07 13:13

「データがある最終行」を特に意識する必要がありますか？

こんな感じで、無条件にシートの最終行まで消してしまっても処理時間は気にならないと思います。

Range("S8:S" & Rows.Count).ClearContents

No.3 回答者： GooUserラック 回答日時： 2017/01/06 11:07

お礼への回答

No.1 について
まずは掲載ミスだと思いますが「Range("S8:S" & Cells(Rows.Count, 1).End(xlUp).Row).ClearContents」としての説明です。
これですとＡ列の最後までになってしまいます。
「Range("S8:S" & Cells(Rows.Count, 19).End(xlUp).Row).ClearContents」にして下さい。

No.2 について
特別な定義など不要です。
こちらでテストしましたがエラーは出ませんでした。
掲載ミスがあるところから、もしかしたら手打ちをして入力ミスがありませんか？コピペを使ってもう一度お試し下さい。

No.2 回答者： GooUserラック 回答日時： 2017/01/05 18:11

「Select」は不要です。

忠実にするならば
「Range(Cells(8, 19), Cells(Cells(Rows.Count, 19).End(xlUp).Row, 19)).ClearContents」
※「19」はＳ列の列番号です。

でも、どうせエクセルの使える最終行までクリアしても変わらないので
「Range(Cells(8, 19), Cells(Rows.Count, 19)).ClearContents」
でも良いと思います。

この回答へのお礼

後者でためしたら、実行エラー1004
オブジェクト定義エラーがでましたが、私が何か定義するべきことがあるんでしょうか？

お礼日時：2017/01/06 09:24

No.1 回答者： t_fumiaki 回答日時： 2017/01/05 17:10

Range("S8:S" & Range("S1").End(xlDown).Row).Clear

この回答へのお礼

すみません、うまくいかず、上記を参考にし
Range(”S8:S” & Cells(Rows.Count,1).End(xlUp).Row.ClearContents
で試したら何故か最終行400の場合
382〜消えていませんでした。泣
難しい…！

お礼日時：2017/01/06 09:45