VBA – 空白行を削除する

空白行の削除

データセットから空白行を削除したいときにまず思い浮かぶ方法は、単にデータをソートすることです。これにより、空白行はデータの一番下に移動し、「削除」されます。しかし、空白行を削除したいが、データをソートしたくない場合はどうすればよいのでしょうか。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 Sub

<<VBAのサンプルに戻る