如何根據Excel中的條件清除單元格內容？

有時您可能需要根據Excel中的條件清除單元格內容，例如如果單元格包含特定值則清除單元格內容，如果另一列中有空白單元格則清除單元格內容，或者清除具有特定背景顏色的單元格內容等. 本文將介紹一些快速輕鬆地解決這些任務的技巧。

使用 VBA 代碼根據單元格值清除單元格內容

如果值大於或小於使用 VBA 代碼的特定值，則清除整行

使用方便的功能根據單元格值清除單元格或行內容

如果另一個單元格使用 VBA 代碼為空白，則清除整行

使用 VBA 代碼根據背景顏色清除單元格內容

使用 VBA 代碼根據單元格值清除單元格內容

例如，您有以下數據范圍，現在，您想清除“Hoodie”的單元格內容，下面的 VBA 代碼可以幫您一個忙。

1。按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。點擊插入 > 模塊，然後將以下代碼粘貼到“模塊窗口”中。

VBA代碼：如果單元格等於特定值，則清除單元格內容

Sub ClearContents()
'Updateby ExtendOffice
 Dim xRng As Range
 Dim xCell As Range
 Dim xText As String
 Set xRng = Application.Range("A2:A12")
 xText = "Hoodie" 'Change this text to your own
 For Each xCell In xRng
 If xCell.Value = xText Then
 xCell.clearContents
 End If
 Next xCell
End Sub

備註：在上面的代碼中， A2：A12 是要從中清除單元格內容的數據范圍，文本“連帽衫” 是您要清除的具體值。請將它們更改為您自己的。

3。然後按 F5 運行此代碼的鍵，所有帶有“Hoodie”文本的單元格立即被清除，見截圖：

如果值大於或小於使用 VBA 代碼的特定值，則清除整行

假設您有以下數據范圍，如果 D 列中的值大於或小於 300，則清除整行內容。在這裡，我將創建一個 VBA 代碼來完成它。

1。按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。點擊插入 > 模塊，然後將以下代碼粘貼到“模塊窗口”中。

VBA代碼：如果單元格值大於或小於特定值，則清除整行

Sub ClearRowInValue()
'Updateby ExtendOffice
Dim xRg As Range
Dim xStrAddress As String
Dim xStrValue As Integer
Dim xCell As Range
Dim xRowRg As Range
Dim xF As Integer
Dim xBol As Boolean
xStrAddress = "D2:D12" 'Change cell range
xStrValue = 300 'change the value
Set xRg = Range(xStrAddress)
For xF = xRg.Rows.Count To 1 Step -1
    Set xRowRg = xRg.Rows.Item(xF)
    xBol = False
    For Each xCell In xRowRg.Cells
        If Application.IsNumber(xCell.Value) Then
        If xCell.Value > xStrValue Then
        xBol = True
        Exit For
        End If
        End If
    Next
    If xBol Then
        xRowRg.EntireRow.clearContents
    End If
Next
End Sub

備註：在上面的代碼中， D2：D12 是數據范圍包含您要清除基於的行的特定值； 300 是具體值；這 > 腳本中的字符 如果 xCell.Value > xStrValue 那麼 表示大於，使用小於，改成 < 你需要的性格。

3。然後按 F5 鍵運行此代碼，如果 D 列中的值大於 300，則清除所有行內容，見截圖：

使用方便的功能根據單元格值清除單元格或行內容

如果你有 Excel的Kutools，其 選擇特定的單元格 功能，您可以根據特定值選擇單元格或行，然後立即刪除單元格內容。

安裝後 Excel的Kutools，請這樣做：

1. 選擇要清除單元格或行內容所依據的值的數據范圍，然後單擊 庫工具 > 選擇 > 選擇特定的單元格，請參見屏幕截圖：

2。在開 選擇特定的單元格 對話框中，進行以下操作：

點擊細胞 or 整行您要選擇的；
指定下的標準 特定類型 您需要的部分。在這裡，我想選擇 D 列中值大於 300 的行。

3。然後點擊 Ok 按鈕，所有大於 300 的行都被選中。現在，您只需按鍵盤上的 Delete 鍵即可刪除單元格內容，見截圖：

保養竅門：您可以使用許多其他條件，請從對話框中指定您自己的條件，如下圖所示：

如果包含帶有 VBA 代碼的空白單元格，則清除範圍中的行數據

在這種情況下，如果數據范圍中的單元格包含任何空白，我想清除範圍中的行數據，如下圖所示。

要完成此任務，請應用以下 VBA 代碼：

1. 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。點擊插入 > 模塊，然後將以下代碼粘貼到模塊窗口。

VBA代碼：如果包含空白單元格，則清除行數據

Sub ClearContents()
'Updateby ExtendOffice
Dim xcell As Range
Set xrng = Application.Range("A2:D12")
For Each xcell In xrng
If xcell.Value = "" Then
Intersect(xcell.EntireRow, xrng).ClearContents
End If
Next
End Sub

備註：在上面的代碼中， A2：D12 是數據范圍包含要從中清除單元格內容的空白單元格。

3。然後按 F5 運行此代碼的鍵，並根據需要在特定範圍內立即清除具有空白單元格的行數據。

使用 VBA 代碼根據背景顏色清除單元格內容

要清除填充有特定背景顏色的單元格，您可以使用以下 VBA 代碼。

1。按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。點擊插入 > 模塊，然後將以下代碼粘貼到模塊窗口。

VBA代碼：根據背景顏色清除單元格內容

Sub Clearcontents()
'Updateby ExtendOffice
Dim xcell As Range
Dim xrng As Range
Set xrng = Application.Range("A2:D12")
    For Each xcell In xrng
        If xcell.Interior.Color = RGB(252, 228, 214) Then
            xcell.Clearcontents
        End If
    Next
End Sub

備註：在上面的代碼中， A2：D12 是您要使用的數據范圍， RGB（252，228，214） 是您要清除單元格的特定顏色，您可以使用提取背景顏色的 RGB 模式畫程序在您的計算機上。

3。然後，按 F5 鍵運行此代碼，具有指定背景顏色的單元格內容立即被清除。看截圖：