Excel VBA（マクロ）を使って行を削除する方法

VBAを使用するためには、開発タブを表示させる必要があります。

エクセルで開発タブを表示していない場合は、以下の記事を参考に表示させてください。

エクセルの開発タブを表示する方法

①開発タブ、②Visual Basicの順に選択します。

Microsoft Visual Basic for Applicationsダイアログボックスが表示されました。①挿入タブ、②標準モジュールの順に選択します。

①行を削除するVBAコードを入力します。②SUB/ユーザー フォームの実行を選択し、③×ボタンを押します。

指定した行（例：3行目）が削除されました。指定した行の削除はこのシートのみで、他のシートには影響していません。

セルA1～C8には、空白行が挿入されたデータがあります。ここでは、この空白行を削除するVBAを作成し、起動を行います。

①開発タブ、②Visual Basicの順に選択します。

「Microsoft Visual Basic for Applications」ダイアログボックスが表示されました。

①挿入タブ、②標準モジュールの順に選択します。

①表示された標準モジュールに、以下のコードを入力します。

Sub Book1()
    Dim a As Long, b As Long
    Dim Office As Range

    With ActiveSheet.UsedRange
        For a = 1 To .Rows.Count
            For b = 1 To .Columns.Count
                If Not IsEmpty(.Cells(a, b).Value) Then Exit For
            Next b

            If b = .Columns.Count + 1 Then
                If Office Is Nothing Then
                    Set Office = .Rows(a).EntireRow
                Else
                    Set Office = Union(Office, .Rows(a).EntireRow)
                End If
            End If
        Next a
    End With
    
    If Not Office Is Nothing Then
        Office.Delete
    End If
End Sub

②Sub/ユーザー フォームの実行を選択し、③×ボタンを押します。

表から空白行のみが削除されました。