如何在 Excel 中一次找出並刪除多個相符項目？

在 Excel 中處理大量資料時，能否快速精準地找到所需資訊至關重要。這時，「尋找與取代」功能就能派上用場——它可協助您在目前工作表或整個活頁簿中，快速定位並標示特定數值或格式，進而對搜尋結果執行後續操作，例如刪除或取代。然而，Excel 內建的「尋找與取代」功能一次僅能搜尋單一數值。本教學將為您介紹一種高效方法，讓您能在 Excel 中一次搜尋多個不同數值，並立即予以刪除。

使用 VBA 一次尋找並刪除多個相符項目

我們已精心編寫兩段 VBA 程式碼，助您輕鬆在選定區域或跨多個工作表中，一次搜尋並立即刪除多個不同數值。請依下列步驟，根據您的需求執行對應的程式碼。

1. 在 Excel 中按下 Alt+F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗！

2. 按一下插入＞ 模組，接著將下列任一段 VBA 程式碼複製到模組視窗中。

VBA 程式碼 1：一次在選擇區域中尋找並刪除多個相符項目

Sub FindAndDeleteDifferentValues_Range()
'Updated by ExtendOffice 20220823
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg As Range
Dim xURg As Range
Dim xFindRgs As Range
Dim xFAddress As String
Dim xBol As Boolean
Dim xJ

xArrFinStr = Array("sales", "9", "@") 'Enter the values to delete, enclose each with double quotes and separate them with commas

On Error Resume Next
Set xRg = Application.InputBox("Please select the search scope:", "Kutools for Excel", , Type:=8)
If xRg Is Nothing Then Exit Sub

xBol = False
For Each xARg In xRg.Areas
    Set xFindRg = Nothing
    Set xFindRgs = Nothing
    Set xURg = Application.Intersect(xARg, xARg.Worksheet.UsedRange)
    For Each xFindRg In xURg
        For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
            If xFindRg.Text = xArrFinStr(xJ) Then
                xBol = True
                If xFindRgs Is Nothing Then
                    Set xFindRgs = xFindRg
                Else
                    Set xFindRgs = Application.Union(xFindRgs, xFindRg)
                End If
            End If
        Next
    Next
    If Not xFindRgs Is Nothing Then
        xFindRgs.ClearContents
    End If
Next
If xBol Then
    MsgBox "Successfully deleted."
Else
     MsgBox "No results found."
End If
End Sub

注意：在第 13 列的程式碼片段 xArrFinStr = Array("sales", "[[PH_35]]", "@") 中，請將 "sales", "9", "@" 替換為您要搜尋並刪除的實際值，務必以雙引號括住每個數值，並以逗號分隔。

VBA 程式碼 2：一次跨多個工作表尋找並刪除多個相符項目

Sub FindAndDeleteDifferentValues_WorkSheets()
'Updated by ExtendOffice 20220823
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg, xFindRgs As Range
Dim xWShs As Worksheets
Dim xWSh As Worksheet
Dim xWb As Workbook
Dim xURg As Range
Dim xFAddress As String
Dim xArr, xArrFinStr
Dim xI, xJ
Dim xBol As Boolean
xArr = Array("Sheet1", "Sheet2") 'Names of the sheets where to find and delete the values. Enclose each with double quotes and separate them with commas
xArrFinStr = Array("sales", "9", "@") 'Enter the values to delete, enclose each with double quotes and separate them with commas
'On Error Resume Next
Set xWb = Application.ActiveWorkbook
xBol = False
For xI = LBound(xArr) To UBound(xArr)
    Set xWSh = xWb.Worksheets(xArr(xI))
    Set xFindRg = Nothing
    xWSh.Activate
    Set xFindRgs = Nothing

    Set xURg = xWSh.UsedRange
    Set xFindRgs = Nothing
    For Each xFindRg In xURg
        For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
            If xFindRg.Text = xArrFinStr(xJ) Then
                xBol = True
                If xFindRgs Is Nothing Then
                    Set xFindRgs = xFindRg
                Else
                    Set xFindRgs = Application.Union(xFindRgs, xFindRg)
                End If
            End If
        Next
    Next
    If Not xFindRgs Is Nothing Then
        xFindRgs.ClearContents
    End If
Next

If xBol Then
    MsgBox "Successfully deleted."
Else
     MsgBox "No results found."
End If
End Sub

3. 按下 F5 執行 VBA 程式碼。注意：若您使用的是 VBA 程式碼 1，系統將彈出對話方塊，提示您選取要搜尋並刪除數值的範圍；您也可直接點選工作表標籤，快速選取整個工作表。

4. 系統會彈出如下所示的對話方塊，告知您程式碼已刪除指定的相符項目。請按一下確定以關閉對話方塊。

5. 指定的數值已全部一次性刪除。

使用選擇指定單元格功能一次尋找並刪除多個相符項目

Kutools for Excel 提供選擇指定單元格功能，可一次找出符合您設定的一或兩個條件的數值，立即了解如何快速尋找並刪除多個數值！

1. 在 Kutools 選項卡的編輯群組中，點擊選取 > 選擇指定單元格。

2. 在彈出的選擇指定單元格對話方塊中，請依下列步驟操作：

• 在在區域內選擇儲存格方框中，點擊右側的範圍選取按鈕，即可指定要搜尋並刪除數值的範圍。注意：若要搜尋整個工作表，請點擊工作表標籤。
• 在選擇類型區段中，選取儲存格選項。
• 在指定類型區段中，最多設定兩個條件：
  • 點擊左側的下拉箭頭，即可選擇您所需的條件關係，例如包含、等於、小於、開頭為等。
  • 根據您的需求，在對應的方框中輸入數值。
  • 指定兩個條件之間的關係（若有的話）：And 或 Or。

3. 按一下確定，即可選取符合您設定條件的儲存格。系統會彈出對話方塊，告知您已找到並選取了多少個儲存格。

4. 按一下確定，接著按下 DELETE 鍵，即可一次刪除所有選取的數值。

示範：在 Excel 中一次尋找並刪除多個相符項目

相關文章

最佳 Office 生產力工具

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

在您的慣用語言中使用 Kutools—支援英文、西班牙文、德文、法文、中文及另外 40+ 種語言！

運用 Kutools for Excel 強化您的 Excel 技能，體驗前所未有的高效能！Kutools for Excel 提供超過 300 項進階功能，大幅提升生產力並節省寶貴時間。立即點擊，取得您最需要的功能……

Kutools for Excel 詳細資訊……免費下載……

---

Office Tab 為 Office 帶來分頁式介面，讓您的工作更輕鬆自在！

• 在 Word、Excel、PowerPoint 中啟用分頁式編輯與閱讀功能，以及 Access、Visio 與 Project。
• 在同視窗的新分頁中開啟並建立多份文件，而非另開新視窗。
• 每天為您提升 50% 的工作效率，並省下數百次滑鼠點擊！

Office Tab 詳細資訊……免費下載……

---

所有 Kutools 增益集，一個安裝程式

Kutools for Office 套件整合了 Excel、Word、Outlook 與 PowerPoint 的增益集，以及 Office Tab Pro，非常適合需要跨多個 Office 應用程式協作的團隊使用！

• 全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集，以及 Office Tab Pro
• 一個安裝程式，一個授權— 數分鐘內即可完成設定（支援 MSI）
• 協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
• 30 天完整功能試用— 無需註冊，無需信用卡
• 超值之選— 比單獨購買各增益集更省費用

Kutools for Office 詳細資訊……免費下載……