White Tiger

Microsoft Excel VBA - 空白行を削除する方法

◆概要

このページは、Excel VBAで空白行を削除する方法について記載しています。

◆内容

データを取り込んだりしたとき、１行ごとに空白行が混じっていることがあります。これを削除し、詰める方法をご紹介します。

◆Sample code

このマクロは、A列に取り込んだデータを調べ、空白セルがあれば行を削除します。

Sub EmptyEntireRowDelete()
'空白の行を削除するマクロ
'1行おきに空白行があるとき、その空白行を削除したいときに使用する。
    Worksheets("Sheet1").Range("A1").Select
    Set currentCell = Worksheets("sheet1").Range("A1")
    Do While Not IsEmpty(currentCell)
        Set nextCell = currentCell.Offset(1, 0)
        If Not IsEmpty(currentCell) Then     'カレントセルが空白でなく、
            If IsEmpty(nextCell) Then     '次のセルが空白のとき
                nextCell.EntireRow.Delete
            End If
        End If
        Set currentCell = currentCell.Offset(1, 0)
    Loop

End Sub

Link