Excel VBA 行の不要データを自動で削除｜表の整理やデータ処理する方法

以下のシーンで利用します。

1.特定の条件を満たす行（例: 空白行、特定の値を含む行）を削除する。

2.ユーザーが選択した行を削除する。

3.範囲を指定して一括で行を削除する。

4.データ整理のために不要な行を削除する。

Option Explicit

Sub DeleteSelectedRow() '標準モジュール
    If Not TypeOf Selection Is Range Then
        MsgBox "セルを選択してください。", vbExclamation, "エラー"
        Exit Sub
    End If
    
    Selection.EntireRow.Delete
End Sub

指定した行を削除する（例: 5行目を削除）

Option Explicit

Sub DeleteRow5() '標準モジュール
    Rows(5).Delete
End Sub

空白行を削除する（A列が空白の行を削除）

Option Explicit

Sub DeleteEmptyRows() '標準モジュール
    Dim ws As Worksheet
    Dim i As Long
    
    Set ws = ActiveSheet
    For i = ws.Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
        If ws.Cells(i, 1).Value = "" Then
            ws.Rows(i).Delete
        End If
    Next i
End Sub

指定の値を含む行を削除（例: B列に「削除」という文字がある行を削除）

Option Explicit

Sub DeleteRowsWithKeyword() '標準モジュール
    Dim ws As Worksheet
    Dim i As Long
    Dim keyword As String

    Set ws = ActiveSheet
    keyword = "削除"

    For i = ws.Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
        If ws.Cells(i, 2).Value = keyword Then
            ws.Rows(i).Delete
        End If
    Next i
End Sub

ユーザーに削除する行を入力させる

Option Explicit

Sub DeleteRowByUserInput() '標準モジュール
    Dim rowNum As Variant
    
    rowNum = InputBox("削除する行番号を入力してください", "行削除")
    
    If Not IsNumeric(rowNum) Or rowNum < 1 Then
        MsgBox "有効な行番号を入力してください。", vbExclamation, "エラー"
        Exit Sub
    End If
    
    Rows(CLng(rowNum)).Delete
End Sub