如何在 Excel 中根據儲存格的背景顏色來刪除整列？

作者Xiaoyang修改日期2024-10-23

如何根據背景顏色刪除整行？在本範例中，您需要刪除所有儲存格具有藍色背景的整列（如下圖所示）。透過本文，您將取得可在 Excel 中執行此任務的實用程式碼。

顯示 Excel 中將被刪除、具有藍色背景的列之螢幕截圖

根據每個儲存格刪除刪除行特定背景顏色

根據單一欄位刪除刪除行特定背景顏色

根據每個儲存格刪除行特定背景顏色

若您有一組資料範圍，其中隨機填入了某些儲存格色彩，且您需要刪除儲存格顏色為藍色的列（如下圖所示）：

顯示 Excel 中將被刪除、特定儲存格填滿藍色的螢幕截圖

若要刪除此類列，您可以使用下列 VBA 程式碼，請依照以下步驟操作：

1. 按住 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 點選插入＞模組，並將下列程式碼貼到模組視窗中。

VBA 程式碼：刪除包含特定填充顏色的儲存格所在列：

Sub DeleteRows()
'Updateby Extendoffice
    Dim rngCl As Range
    Dim xRows As Long
    Dim xCol As Long
    Dim colorLg As Long
    On Error Resume Next
    Set rngCl = Application.InputBox _
        (Prompt:="Select a cell with the background color to be deleted", _
        Title:="Kutools for Excel", Type:=8)
    On Error GoTo 0
    If rngCl Is Nothing Then
        MsgBox "User cancelled operation." & vbCrLf & _
        "Processing terminated", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    colorLg = rngCl.Interior.Color
    Application.ScreenUpdating = False
    With ActiveSheet.UsedRange
        For xRows = .Rows.Count To 1 Step -1
            For xCol = 1 To .Columns.Count
                           If .Cells(xRows, xCol).Interior.Color = colorLg Then
                    .Rows(xRows).Delete
                    Exit For
                End If
            Next xCol
        Next xRows
    End With
    Application.ScreenUpdating = True
End Sub

3. 接著按下 F5 鍵執行此程式碼，系統將彈出提示方塊，提醒您選取一個含有欲刪除填充顏色的儲存格，請參見下圖：

選取具有背景顏色之儲存格以刪除列的螢幕截圖

4. 接著點選確定，所有含有特定填滿色彩的列將立即被刪除。

根據單一欄位刪除行特定背景顏色

若您只想根據單一欄位刪除特定顏色的列，例如刪除 A 欄中字型或儲存格底色為藍色的列（結果如下圖所示），這裡也提供一段 VBA 程式碼，助您輕鬆達成目標。

顯示 Excel 中 A 欄具有藍色、將被刪除的列之螢幕截圖

1. 按住 ALT + F11 鍵以開啟 Microsoft Visual Basic for Applications 視窗。

2. 點選插入> 模組，並將下列程式碼貼到模組視窗中。

VBA 程式碼：根據含有特定填充顏色的欄位刪除列：

Sub deleterow()
'UpdateBY Extendoffice
   Dim xRg As Range, rgDel As Range
    For Each xRg In ThisWorkbook.ActiveSheet.Range("A2:A21")
        If xRg.Interior.ColorIndex = 20 Then
            If rgDel Is Nothing Then
                Set rgDel = xRg
            Else
                Set rgDel = Union(rgDel, xRg)
            End If
        End If
    Next xRg
    If Not rgDel Is Nothing Then rgDel.EntireRow.Delete
End Sub

注意：在上述程式碼中，A2:A21 為包含欲據以刪除列之特定填充顏色的欄位，而 20 則是 ColorIndex = 20 腳本中代表您欲據以刪除列的顏色編號。您可以依需求自由調整這些參數！

3. 接著按下 F5 鍵執行此程式碼，即可一次性刪除所有 A 欄中包含藍色的列。

最佳 Office 生產力工具

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