No.4ベストアンサー
- 回答日時:
途中に空白があるなら、基準となる最下位行から上に検索して最終行を求めないとイケナイ。
Range("S8:S" & Range("S1").Range("S65536").End(xlUp).Row).Clear
.End(xlUp).Row
↓
.Range("S65536").End(xlUp).Row
No.8
- 回答日時:
s列は19列目なのでRange("s8",Cells(Rows.Count,19).End(xlup)).SelectもしくRan
ge("s8",Cells(Rows.Count,"S").End(xlup)).SelectNo.7
- 回答日時:
綴りが間違っていました。
Range(Range("s1").End(xldown),Range("s140000").End(xlup)).Value=vbEmpty
No.5
- 回答日時:
「データがある最終行」を特に意識する必要がありますか?
こんな感じで、無条件にシートの最終行まで消してしまっても処理時間は気にならないと思います。
Range("S8:S" & Rows.Count).ClearContents
No.3
- 回答日時:
お礼への回答
No.1 について
まずは掲載ミスだと思いますが「Range("S8:S" & Cells(Rows.Count, 1).End(xlUp).Row).ClearContents」としての説明です。
これですとA列の最後までになってしまいます。
「Range("S8:S" & Cells(Rows.Count, 19).End(xlUp).Row).ClearContents」にして下さい。
No.2 について
特別な定義など不要です。
こちらでテストしましたがエラーは出ませんでした。
掲載ミスがあるところから、もしかしたら手打ちをして入力ミスがありませんか?コピペを使ってもう一度お試し下さい。
No.2
- 回答日時:
「Select」は不要です。
忠実にするならば
「Range(Cells(8, 19), Cells(Cells(Rows.Count, 19).End(xlUp).Row, 19)).ClearContents」
※「19」はS列の列番号です。
でも、どうせエクセルの使える最終行までクリアしても変わらないので
「Range(Cells(8, 19), Cells(Rows.Count, 19)).ClearContents」
でも良いと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
「これはヤバかったな」という遅刻エピソード
寝坊だったり、不測の事態だったり、いずれにしても遅刻の思い出はいつ思い出しても冷や汗をかいてしまいますよね。特にものすごく怒られたときとか、とんでもない損害を与えてしまったときとか…。
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
-
4
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
-
5
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
6
マクロで最終行から上に検索を逆にしたい
Excel(エクセル)
-
7
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
8
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
9
VBA データ(特定値)のある最終行を取得したい
Excel(エクセル)
-
10
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
11
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
12
Excel VBAでブックを閉じる時、複数のブックが開いていると・・・。
Excel(エクセル)
-
13
特定の複数のシートに同じ処理をさせたい
Excel(エクセル)
-
14
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
15
エクセルVBA 作業後に選択範囲を解除する方法
Excel(エクセル)
-
16
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
17
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
18
ブック名、シート名を他のモジュールからも参照可能にする方法
Access(アクセス)
-
19
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
20
ExcelVBAのユーザーフォームの中に線を引きたい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
URLのリンク切れをマクロを使っ...
-
文字列の結合を空白行まで実行
-
データグリッドビューの一番最...
-
【VBA】2つのシートの値を比較...
-
VBAでのリスト不一致抽出について
-
VBAの構文 3列置きにコピーし...
-
VBscriptでExcel sheetの並び替...
-
C# dataGridViewの値だけクリア
-
Changeイベントでの複数セルの...
-
IIF関数の使い方
-
エクセル 2つの表の並べ替え
-
セルに値が入っていた時の処理
-
VBAで指定範囲内の空白セルを左...
-
VBAで、特定の文字より後を削除...
-
【Excel VBA】 B列に特定の文字...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
vba 2つの条件が一致したら...
-
IIF関数の使い方
-
VBAを使って検索したセルをコピ...
-
Cellsのかっこの中はどっちが行...
-
文字列の結合を空白行まで実行
-
マクロ 最終列をコピーして最終...
-
URLのリンク切れをマクロを使っ...
-
Changeイベントでの複数セルの...
-
VBAのFind関数で結合セルを検索...
-
ExcelVBA修正のお願い
-
データグリッドビューの一番最...
-
VBAで指定範囲内の空白セルを左...
-
VBA 何かしら文字が入っていたら
-
【VBA】2つのシートの値を比較...
-
VBマクロ 色の付いたセルを...
-
空白セルをとばして転記
-
rowsとcolsの意味
おすすめ情報
S列全部じゃなく、途中から最終行までなので、難しいです…
言い忘れてました。データは所々入っていて、連続ではありません。