如何在 Excel 中刪除特定欄位包含遺漏值或空白值的整列？

作者Siluvia修改日期2024-11-21

在 Excel 中，妥善處理遺漏值或空白值對於資料清理與分析至關重要。本指南將示範如何透過 VBA 腳本，在指定欄位中偵測到空白儲存格時，自動刪除整列資料。

使用 VBA 程式碼針對特定欄位中的遺漏值／空白值進行刪除行

使用 VBA 程式碼針對特定欄位中的遺漏值／空白值進行刪除行

假設您希望在欄位 B 或 D 中存在遺漏值時刪除該列（如下方截圖所示），即可透過執行下列 VBA 程式碼輕鬆達成。

顯示 Excel 中特定欄位為空白值的列已刪除的螢幕截圖

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 對話方塊，請選擇您要檢查是否存在遺漏值的欄位範圍，然後按一下確定按鈕。

Excel 中用於選取要檢查空白值之欄位的對話框螢幕截圖

按下確定按鈕後，欄位 B 或 D 中包含遺漏值的所有列將立即被刪除。請參閱截圖：

顯示 Excel 中特定欄位為空白值的列已刪除的螢幕截圖

注意：您無法同時選取多個範圍進行操作。若多個欄位皆包含遺漏值，且您希望刪除所有相關列，請針對每個欄位分別重複步驟 3.

填充空白儲存格 的 Kutools for Excel 功能，讓您輕鬆高效處理 Excel 中的空白儲存格！無論是將選取範圍內所有空白儲存格填入固定值、依據上方、下方、左方或右方的相鄰內容自動填滿，還是以線性數值序列填充空白，都能一鍵搞定。詳情請見截圖：

Kutools for Excel－透過超過 300 項必備工具全面強化 Excel，讓您的工作更快速、更輕鬆，並運用 AI 功能實現更聰明的資料處理與高效生產力！立即取得

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多