Note: The other languages of the website are Google-translated. Back to English

如何根據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,則清除所有行內容,見截圖:


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

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

安裝後 Kutools for Excel,請這樣做:

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 鍵運行此代碼,具有指定背景顏色的單元格內容立即被清除。 看截圖:



  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 和保存數據; 拆分單元格內容; 合併重複的行和總和/平均值...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 收藏并快速插入公式,範圍,圖表和圖片; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 數據透視表分組依據 週號,週幾等 顯示未鎖定的單元格 用不同的顏色 突出顯示具有公式/名稱的單元格...
kte選項卡201905
  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 每天將您的工作效率提高50%,並減少數百次鼠標單擊!
officetab底部
按評論排序
留言 (0)
還沒有評分。 成為第一位評論!
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點