VBAの行削除について

質問

VBAで行を削除したいです。
データが何百行かあって、その下から空白行が最終行までできています。
その空白行部分を削除したいのですが。
どのようにコーディングすればいいのですか？

回答No.1

zap35 · ベストアンサー

補足お願いします
データが何行あるかを判断するのがA列でよいなら、例えば以下のようなマクロは書けますが、「空白行を削除」の目的は何ですか？

一度最終行にデータを書き込み、そのセルを削除しても「編集」→「ジャンプ」で「最後のセル」を確認したら「最後のセルは最終行にある」ことを解除したいというのが目的であれば、以下のマクロでもダメです。
（一旦ブックを閉じて、再度開き直せば「最後のセル」は実際に存在するデータの範囲に復帰します）

Sub Macro2()
Dim LastR As Long
　LastR = ActiveSheet.Range("a65536").End(xlUp).Row
　Range(Cells(LastR + 1, 1), Cells(65536, 1)).EntireRow.Delete
End Sub

お礼

遅くなってしまいましたがありがとうございました。
助かりました。