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も見ています
-
【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
ロボットの住む世界で流行ってる罰ゲームとは?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
-
4
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
5
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
6
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
7
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
-
8
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
9
マクロで最終行から上に検索を逆にしたい
Excel(エクセル)
-
10
VBAで文字列を数値に変換したい
Excel(エクセル)
-
11
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
12
VBA データ(特定値)のある最終行を取得したい
Excel(エクセル)
-
13
特定の複数のシートに同じ処理をさせたい
Excel(エクセル)
-
14
EXCEL VBA マクロ 実行する度に処理速度がどんどん遅くなる原因が知りたい
Excel(エクセル)
-
15
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
16
エクセルVBA 作業後に選択範囲を解除する方法
Excel(エクセル)
-
17
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
18
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
19
ExcelVBAのユーザーフォームの中に線を引きたい
Visual Basic(VBA)
-
20
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Excelで、あるセルの値に応じて...
-
Worksheets メソッドは失敗しま...
-
vba 2つの条件が一致したら...
-
VBA 何かしら文字が入っていたら
-
IIF関数の使い方
-
VBAコンボボックスで選択した値...
-
VBAのFind関数で結合セルを検索...
-
【Excel VBA】 B列に特定の文字...
-
複数の列の値を結合して別の列...
-
VBAを使って検索したセルをコピ...
-
Cellsのかっこの中はどっちが行...
-
セルに値が入っていた時の処理
-
オートフィルタをマクロで作成...
-
文字列の結合を空白行まで実行
-
空白セルをとばして転記
-
Excel マクロ VBA 別シートのセ...
-
VBA A列にありB列にないものま...
-
Changeイベントでの複数セルの...
-
DataGridViewに空白がある場合...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
URLのリンク切れをマクロを使っ...
-
文字列の結合を空白行まで実行
-
データグリッドビューの一番最...
-
【VBA】2つのシートの値を比較...
-
VBA 何かしら文字が入っていたら
-
IIF関数の使い方
-
VBAを使って検索したセルをコピ...
-
Changeイベントでの複数セルの...
-
VBAの構文 3列置きにコピーし...
-
VBAのFind関数で結合セルを検索...
-
【Excel VBA】 B列に特定の文字...
-
VBAで指定範囲内の空白セルを左...
-
VBAでのリスト不一致抽出について
-
セルに値が入っていた時の処理
-
VBAコンボボックスで選択した値...
おすすめ情報
S列全部じゃなく、途中から最終行までなので、難しいです…
言い忘れてました。データは所々入っていて、連続ではありません。