如何在Excel中刪除某些列中缺少或為空值的行

MS Excel 微軟技術計算機

對於各種資料分析工作，擁有乾淨且完整的資料至關重要。但是，處理缺失或空值可能很困難。幸運的是，Excel包含許多強大的工具和函式，可以輕鬆查詢並刪除包含缺失或空資訊的行。

本教程將引導您逐步完成一個方法，用於識別和刪除Excel工作表中某些列中包含缺失或空值的行。無論您處理的是小型資料集還是大型電子表格，這些策略都可以幫助您快速準確地清理資料。

刪除某些列中缺少/為空值的行

這裡，我們將首先建立一個VBA模組，然後執行它來完成任務。讓我們來看一個簡單的過程，學習如何在Excel中刪除某些列中缺少或為空值的行的。

步驟1

考慮一個Excel表格，其中包含帶有空值的行，類似於下面的圖片。

首先，右鍵單擊工作表名稱，然後選擇“檢視程式碼”以開啟VBA應用程式。

右鍵點選 > 檢視程式碼

步驟2

然後單擊“插入”，選擇“模組”，並將下面的程式碼複製到文字框中。

插入 > 模組 > 複製。

示例

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:", "Delete Rows Blank", 
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