如何在 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％，并减少数百次鼠标单击！