如何在 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", "9", "@") 中，您應該將 "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. 如下所示的對話框彈出，告訴您代碼已刪除指定的匹配項。點擊 OK 關閉對話框。

5. 指定的值已經一次性刪除。

使用“選擇指定單元格”功能一次性尋找並刪除多個匹配項

Kutools for Excel 提供了“選擇指定單元格”功能，可以一次性找到符合您設置的一個或兩個條件的值，請繼續閱讀以了解如何快速找到並刪除多個值。

1. 在 Kutools 標籤的 編輯 組中，點擊 選擇 > 選擇指定單元格。

2. 在彈出 選擇指定單元格 對話框中，請按以下步驟操作：

• 在 在區域內選擇儲存格 框中，點擊右側的區域選擇按鈕 以指定從 哪裡尋找和刪除值. 備註：要搜尋整個工作表，請點擊工作表標籤。
• 在選擇類型部分，選擇單元格選項。
• 在 指定類型 部分，最多設置兩個條件：
  • 點擊左側的下拉箭頭以選擇您需要的條件關係，例如包含、等於、小於、開頭是等。
  • 根據您的需要在相應的框中輸入值。
  • 指定兩個條件之間的關係（如果有）：和 或 或。

3. 點擊 Ok以選擇符合您設置的條件的單元格。彈出一個對話框，告訴您找到並選擇了多少個單元格。

4. 點擊 OK。現在，按下 DELETE 鍵以一次性刪除選定的值。

演示：在 Excel 中一次性尋找並刪除多個匹配項

相關文章