EXCEL VBAでA列にある空白行より下の行すべてを削除する方法を教えてください。

おはようございます。
A列からD列に、空白行が入ったデータがあります。
空白行より下の行すべてを削除するVBAコードを教えてください。

No.2 ベストアンサー 回答者： zongai 回答日時： 2023/02/19 11:37

こういうのでいいのかな。

お試しください。

Sub Macro()
　　Dim i As Long, j As Long
　　For i = 1 To 4
　　　　For j = 1 To Rows.Count
　　　　　　If IsEmpty(Cells(j, i)) Then
　　　　　　　　Range(Cells(j, i), Cells(Rows.Count, i)).ClearContents
　　　　　　　　Exit For
　　　　　　End If
　　　　Next
　　Next
End Sub

この回答へのお礼

うまくできました。ありがとうございました。

お礼日時：2023/02/26 20:27

No.3 回答者： 初心者ですが何か。 回答日時： 2023/02/19 16:02

＞A列からD列に、空白行が入ったデータがあります。

これは、ある行のＡ～Ｄ列のセル全てにデータが存在しないと言う事なのでしょうか？
又はＡ～Ｄ列のどれかに空白セルがあったら、その行から下が削除範囲なのですか？

＞空白行より下の行すべてを削除する

上記のように空白行の定義づけが不明ですが、ある意味では空白行以下と言うなら空白行～Rows.Countまでを削除で宜しいのですか？

No.1 回答者： もちからぼたもち 回答日時： 2023/02/17 08:06

①forで空白行を探して見つかったらfor抜ける

②＋1行してそれ以降削除

とかでどうでしょうか？