如何在 Excel 中一次查找和刪除多個匹配項？

使用“選擇特定單元格”功能一次查找和刪除多個匹配項

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

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

請注意： 在片段中 xArr = Array("Sheet1", "Sheet2") 在第 15 行，你應該替換 “表 1”、“表 2” 使用要在其中查找和刪除值的工作表的實際名稱。 請記住用雙引號將每個工作表名稱括起來，并用逗號分隔它們。 在片段中 xArrFinStr = Array("sales", "9", "@") 在第 16 行，你應該替換 “銷售”、“9”、“@” 對于要查找和刪除的實際值，請記住用雙引號將每個值括起來并用逗號分隔它們。

2.在彈出窗口中 選擇特定的單元格 對話框，請執行以下操作： 在 選擇此范圍內的單元格 框，單擊范圍選擇按鈕 在右側指定范圍 在哪里查找和刪除值. 請注意： 要搜索整個工作表，請單擊工作表選項卡。 在 選擇類型 部分，選擇 手機 選項。 在 特定類型 部分，最多設置兩個條件： 點擊左側的下拉箭頭，選擇您需要的關系，例如 包含, 等于, 小于, 開始于等等。 根據需要在相應框中鍵入值。 指定兩個條件之間的關系（如果有）： 和 or Or.

在Excel中查找，突出顯示，過濾，計數，刪除重復項

在Excel中，當我們手動記錄數據，從其他來源復制數據或出于其他原因而重復出現數據。 有時，重復是必要且有用的。 但是，有時重復的值會導致錯誤或誤解。 本文將介紹在Excel中通過公式，條件格式設置規則，第三方加載項等快速識別，突出顯示，篩選，計數，刪除重復項的方法。

如何在 Excel 中比較兩列并刪除匹配項？

如果您有兩列/列表，其中包括一些重復項，現在您要比較它們并找出匹配項，然后將其刪除，如何快速解決？ 在本文中，我介紹了多種方法來幫助您在Excel中進行處理。

如何在 Excel 中刪除除選定范圍之外的所有范圍？

在Excel中，我們可以快速直接刪除選定的范圍，但是您是否嘗試過刪除選定范圍以外的其他單元格內容？ 本文，我將為您介紹一些技巧，以幫助您快速輕松地解決Excel中的此任務。

如何刪除一系列單元格中的所有圖片？

如果現在在工作表中填充了多張圖片，您想在指定范圍內刪除其中的一些圖片，如何快速處理？

最佳辦公生產力工具

在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。 在同一窗口的新選項卡中而不是在新窗口中打開并創建多個文檔。 每天將您的工作效率提高50％，并減少數百次鼠標單擊！