列をD列から最終列まで削除したい

Question

お世話になっております。

なんかググっても見つけられなかったので基本的な質問失礼いたします。
件名の通りなのですが

いろ　はにほへと
ちりぬるを
　わかよたれそ
つねならむ
うゐのおくやま
けふこえて
あさきゆめみし
ゑひもせすん

上記のexcelがあった際に（”い”がA1　”ろ”がB1　”　”がC1）
D列から右すべて削除したい場合
どのようにVBAでは表記するのか伺ってよろしいでしょうか？

ググってみてもデータが歯抜けの場合はちゃんと取れない気がしております……

初心者の質問で申し訳無いのですがご助力頂けますと嬉しく思います。

Answer 1

ちからずくですが、これでどうでしょうか。
もし、ZZ列より右側にデータがあるなら、もうすこし、きちんとやらないとだめですが。

Public Sub D列以降を削除()
    Range("D1:" & "ZZ" & Rows.Count).Clear
End Sub

Comments

[jinoji]

Range("$D:$XFD").Clear とかでもいいかもですね。

[ma2hiro]

ありがとうございます……

ですが上記では
データがそんなにないにも関わらずZZまで有効になってしまうのです……うーん

[ma2hiro]

と思いましたが元からZZまで有効でしたね……

jinojiさんの方法でも出来ますねっ

[jinoji]

それが何か不都合でも？

まあ、Range("D1", Cells.SpecialCells(xlCellTypeLastCell)).Clear とかでもいいですが。

[ma2hiro]

いえいえ不都合は無いです。

追加の方法もありがとうございますっ
一番それっぽいのでこちらを利用させて頂きます。

ありがとうございましたm(_ _)m