如何在 Excel 中根據條件清除單元格內容？
有時您可能需要在 Excel 中根據特定條件清除單元格內容，例如：當儲存格包含某個特定值時清除其內容、當其他欄位出現空白儲存格時一併清除，或依據特定背景色來清除單元格內容等。本文將為您介紹幾種實用技巧，助您快速又輕鬆地完成這些任務！
清除單元格內容使用 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
3. 接著按下 F5 鍵執行此程式碼，所有內容為「Hoodie」的文字儲存格將立即被清除，請參閱截圖：
透過 KUTOOLS AI 解鎖 Excel 的神奇功能
- 智慧執行：透過簡易指令，輕鬆執行儲存格操作、分析資料，並建立圖表！
- 自訂公式：打造專屬公式，讓您的工作流程更順暢！
- VBA 編碼：輕鬆撰寫並套用 VBA 程式碼，立即提升工作效率！
- 公式解析：輕鬆掌握複雜公式！
- 文字翻譯：輕鬆打破試算表中的語言隔閡！
使用 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
3. 接著按下 F5 鍵執行此程式碼，即可清除所有 D 欄數值大於 300 的整列內容，請參閱截圖：
使用實用功能依儲存格值清除儲存格或整列內容
若您已安裝 Kutools for Excel，可透過其選擇指定單元格功能，依特定值快速選取儲存格或整列，並一次性清除內容！
安裝 Kutools for Excel 後，請依下列步驟操作：
1. 選取包含您要據以清除儲存格或整列內容之數值的資料區域，然後按一下 Kutools＞ 選取＞ 選擇指定儲存格，請參閱截圖：
2. 在開啟的選擇指定單元格對話方塊中，請執行下列操作：
- 按一下儲存格或整行以選取您要的項目；
- 根據需求，在指定類型區段中設定條件。在此範例中，我要選取 D 欄數值大於 300 的列。
3. 接著按一下確定按鈕，所有數值大於 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
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
3. 接著按下 F5 鍵執行此程式碼，符合指定背景顏色的儲存格內容將立即被清除。請參閱截圖：
- 超強編輯欄（輕鬆編輯多行文字與公式）；閱讀版面（輕鬆閱讀與編輯大量儲存格）；貼上至篩選範圍……
- 合併儲存格／列／欄並保留資料；分割儲存格內容；合併重複行並加總／平均……防止重複項儲存格；比較範圍……
- 選取重複或唯一列；選取空白列（所有儲存格皆為空）；超級查找與模糊搜尋多個活頁簿；隨機選取……
- 精確公式複製多個儲存格而不變更公式參照；自動建立參照至多個工作表；插入項目符號、複選框及更多……
- 收藏並快速插入公式、範圍、圖表與圖片；加密儲存格並設定密碼；建立郵件清單並寄送電子郵件……
- 提取文本、添加文本、刪除某位置字元、移除空格；建立並列印數據分頁統計；在儲存格內容與註解之間轉換……
- 超級篩選（儲存並套用篩選方案至其他工作表）；高級排序依月份／週／日、頻率等；特殊篩選依粗體、斜體……
- 合併活頁簿與工作表；合併表格依據關鍵列；分割數據至多個工作表；批次轉換 xls、xlsx 與 PDF……
- 資料透視表依週數、星期幾等分組……顯示未鎖定、選區鎖定以不同顏色標示；突顯包含公式／名稱的儲存格……
- 在 Word、Excel、PowerPoint、Publisher、Access、Visio 與 Project 中啟用分頁式編輯與閱讀，提升工作效率！
- 在同一視窗的新分頁中開啟並建立多份文件，而非另開新視窗。
- 每天為您提升 50% 的工作效率，省下數百次滑鼠點擊！
