Excelで特定の列に欠損値や空白の値がある行を削除するにはどうすればよいですか？

Excelでは、欠損値や空白の値を処理することは、データクリーニングや分析において重要です。このガイドでは、VBAスクリプトを使用して特定の列に空白セルが見つかった場合に行全体を削除する方法を説明します。

VBAコードを使用して特定の列に欠損値や空白の値がある行を削除する

VBAコードを使用して特定の列に欠損値や空白の値がある行を削除する

以下のスクリーンショットに示すように、列Bまたは列Dに欠損値が存在する場合に行を削除したいとします。次のVBAコードを実行することでこれを実現できます。

1. Alt + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

2.Microsoft Visual Basic for Applicationsウィンドウで、挿入 > モジュールをクリックします。その後、以下のVBAコードをコードウィンドウにコピーして貼り付けます。

VBAコード：特定の列に欠損値や空白の値がある行を削除する

Sub DeleteRows()
    Dim I As Integer
    Dim xCount As Integer
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "You can’t select multiple ranges to operate", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xCount = xRg.Rows.Count
    For I = xCount To 1 Step -1
        If Application.WorksheetFunction.CountBlank(xRg.Rows(I)) > 0 Then
            xRg.Rows(I).EntireRow.Delete
        End If
    Next
End Sub

3. F5キーを押してコードを実行します。するとKutools for Excelダイアログボックスが表示されるので、欠損値が存在するかどうか確認したい列範囲を選択し、OKボタンをクリックしてください。

OKボタンをクリックすると、列Bまたは列Dに欠損値があるすべての行が即座に削除されます。スクリーンショットをご覧ください：

注釈: 複数の範囲を選択して同時に操作することはできません。複数の列に欠損値が存在し、すべての行を削除したい場合は、各列ごとにステップ3を繰り返してください。

関連記事：

• Excelでセルが特定の値より大きい/小さい場合に行を削除するにはどうすればよいですか？
• Excelで最初のヘッダー行以外のすべての行を削除するにはどうすればよいですか？
• Excelで特定の行またはアクティブなセルより下にあるすべての行を削除するにはどうすればよいですか？