２行目以降のA列の文字をクリアしたい

Question

２行目以降の文字を全てクリアは下記コードで実行できました。

Sub Sample()
Rows("2:" & Rows.Count).ClearContents
End Sub

Ｂ列、Ｃ列、Ｄ列・・・の文字は残したいためＡ列のみクリアしたいです。
２行目以降のA列の文字をクリアするコードはどのように記載したらよいでしょうか。
初心者のため初歩的な質問かもしれず恐縮ですがご教示頂きたくお願いいたします。

Answer 1

Sub Sample()
Rows("2:" & Rows.Count).Resize(,1).ClearContents
End Sub

Rows("2:" & Rows.Count).Resize(,1)
「（シート上の）２行目から最終行のうちの１列分」
こんな風にも書けますね。
いろいろな表現で同じことを説明できます。
（あ、エクセル君に説明するとして）
言葉をいっぱい知っておけば、複雑な話でもうまく説明できます。
語彙を増やすよう勉強がんばってください。

Comments

[yokoazu]

お礼が遅くなりましたが、希望通りの動作をする事を確認しました。
同じ結果でも色々な書き方があるんですね。色々な書き方がある事、とても勉強になりました。
最終行のうち１列分という書き方もあるんですね。
アドバイスありがとうございます。まずは語彙を増やすよう勉強頑張ります。
初歩すぎる質問に親切にご回答くださりありがとうございました！

Answer 2

Sub Sample()

    Range(Cells(2, 1), Cells(Rows.Count, 1)).ClearContents

End Sub

これでできますよ。

初心者さんということなので、一応解説しておきます。

「Range」はセル単体や、セル範囲を指定することができます。
「Range」は使用方法は、多岐にわたるので、自分で調べてください。

ここではセル範囲を扱う形で使用しています。
セル範囲を扱う方法も色々あるので、調べてみて下さい。
今回は↓の方法で行ってます。
Range(Cells(行, 列), Cells(行, 列))

Cells(2, 1)はA２を指定していて、Cells(Rows.Count, 1)はA1048576を指定していますｗ
Rows.Countは、Excelとして扱える最終行をだしているので、どえらい数になってます。
（この数は、Excelのバージョンによって異なります）
なのでA列で消してはいけないものがあるようならば、ここを変更する必要があります。

A2:A1048576の範囲を指定して消しているというのが、上記のコードとなります。

ぐちではありませんが、初心者との事ですが調べれば、す
ぐわかる内容だと思いますので、面倒くさがらずに調べら
れた方が、自分のスキルアップになりますよ
！

Comments

[yokoazu]

遅くなりましたがご回答いただいた内容で希望通りに動作する事を確認しました。
丁寧に説明も記載いただきありがとうございます。超初心者のため簡単な事だと思うのですが勉強になりました。回答いただいてみると確かに自分で調べる事ができた気がしました。
VBAを初めてまだ１ヵ月も経たず、お恥ずかしながら調べたのにわからなかったという超初心者っぷりでした(^^;)悩みだすと数時間経過してしまうのでスキルアップを頑張りたいです。
ありがとうございました！

Answer 3

Sub sample2()
    Range("A2:A" & Rows.Count).ClearContents
End Sub

Comments

[yokoazu]

お礼が遅くなりました。
確認したところ希望通りの動作を確認できました。ありがとうございました。