如何在Excel的某些列中刪除缺少/空白值的行？

在某些情況下，您可能需要刪除Excel中一系列單元格中缺少值的整個行或空白單元格。 本文將向您展示如何處理此問題。

使用VBA代碼刪除某些列中具有缺失/空白值的行

---

使用VBA代碼刪除某些列中具有缺失/空白值的行

假設您要刪除行（如果B和D列中存在缺失值），則如下所示。 您可以運行以下VBA代碼來實現它。

1。 按 其他 + 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 鍵來運行代碼。 然後一個 Excel的Kutools 彈出對話框，請選擇要檢查是否存在缺失值的列範圍，然後單擊 OK 按鈕。

點擊後 OK 按鈕，您會看到B和D列中所有缺少值的行均被立即刪除。 看截圖：

備註：您不能選擇多個範圍同時操作。 如果多列中存在缺失值，並且您要刪除所有行，則可以從一列到另一列重複上述步驟3。

---

---

相關文章:

• 如果單元格大於/小於Excel中的某個值，如何刪除行？
• 如何刪除Excel中除第一行標題行外的所有行？
• 如何刪除Excel中某些行或活動單元格下方的所有行？