セル範囲の参照方法

質問

AからD列
行はそのつど変わるデータの一番最後の行まで参照するマクロを教えてください。
1行目は項目なので
2行目から一番最後の入力されている行を選択して、
空白にしたいと思っています。

マイクロソフトのヘルプを見ましたが
ありませんでした。

何卒よろしくおねがいします。

回答No.2

merlionXX · ベストアンサー

E列にデータがないなら

Sub test01()
Range("A1").CurrentRegion.Offset(1).ClearContents
End Sub

あるなら、

Sub test02()
For i = 1 To 4
x = Cells(Rows.Count, i).End(xlUp).Row
y = IIf(y < x, x, y)
Next
If y > 1 Then
Range("A2:D" & y).ClearContents
End If
End Sub

お礼

ありがとうございます。
試しましたがうまくいきました！
早速使わせていただきます。

回答No.1

WDY

何をしたいのか良く分かりませんが

Range("A2:D65536").Select
Selection.Delete
という事？

補足

説明不足ですみません。

空白にする以外にも範囲指定をして、全角を半角にするような
マクロに流用したく、

65536行まで指定してしまうとすべて検索してしまうので
時間がかかってしまいました。

今値が入っている範囲だけ選択したかったのですが
可能でしょうか？