Excelの特定の列で値が欠落している/空白の行を削除するにはどうすればよいですか？

場合によっては、Excelのセル範囲で、値が欠落している行全体または空白のセルを削除する必要があります。 この記事では、この問題に対処する方法を説明します。

VBAコードを使用して、特定の列の値が欠落している/空白の行を削除する

VBAコードを使用して、特定の列の値が欠落している/空白の行を削除する

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

1。 押す 他の + F11 を開く アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール。 次に、以下の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の値が欠落しているすべての行がすぐに削除されていることがわかります。 スクリーンショットを参照してください：

Note：複数の範囲を選択して同時に操作することはできません。 欠落している値が複数の列に存在し、すべての行を削除する場合は、上記の手順3をXNUMXつの列から別の列に繰り返すことができます。

関連記事:

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