VBA – 空白行を削除する
Last updated on 8月 1, 2022
空白行の削除
データセットから空白行を削除したいときにまず思い浮かぶ方法は、単にデータをソートすることです。これにより、空白行はデータの一番下に移動し、「削除」されます。しかし、空白行を削除したいが、データをソートしたくない場合はどうすればよいのでしょうか。VBAを使用すれば可能です。
以下のマクロは、ソートせずに空白行を削除します。（画面更新をオフにすると、その分、高速になります。）
Sub DeleteBlankRows()
Dim x As Long
With ActiveSheet
For x = .Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
If WorksheetFunction.CountA(.Rows(x)) = 0 Then
ActiveSheet.Rows(x).Delete
End If
Next
End With
End SubVBAのコーディングが簡単に
VBAのコードをオンラインで検索するのはもうやめましょう。AutoMacro – A VBA Code Builderについてもっと知る – 初心者が最小限のコーディング知識でゼロから手順をコーディングでき、すべてのユーザーのために多くの時間節約機能を備えています! 
もっと詳しく
