如何删除不符合另一工作表中条件的行？
删除同一工作表中不符合条件的行或许并不难，但您是否知道如何删除如下面所示、不符合另一工作表中条件的行？现在，我有两个技巧可助您快速解决这一问题。
删除行使用 Kutools for Excel 删除不符合另一工作表中条件的行
 |  |  |  |
| 条件（在工作表 2 中） | 之前（工作表 1） | 之后（Sheet 1） |
删除行使用 VBA 删除不符合另一工作表中条件的行
有一段 VBA 代码，可帮您删除不符合另一工作表中条件的行。
1. 按下 Alt + F11，即可打开 Microsoft Visual Basic for Applications 窗口。
2. 在窗口中，单击插入> 模块 以打开新模块窗口，然后将以下 VBA 代码复制到该窗口中。
VBA：在 Excel 中删除不符合另一工作表中条件的行。
Sub DeleteRow()
'Updateby20140618
Dim rng As Range
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant
Dim arr2 As Variant
Dim dic2 As Variant
Dim OutArr As Variant
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Set Rng1 = Rng1.Columns(1)
Set Rng2 = Rng2.Columns(1)
Set dic2 = CreateObject("Scripting.Dictionary")
arr1 = Rng1.Value
arr2 = Rng2.Value
For i = 1 To UBound(arr2, 1)
xKey = arr2(i, 1)
dic2(xKey) = ""
Next
Rng1.ClearContents
OutArr = Rng1.Value
xIndex = 1
For i = 1 To UBound(arr1, 1)
xKey = arr1(i, 1)
If dic2.Exists(xKey) Then
OutArr(xIndex, 1) = xKey
xIndex = xIndex + 1
End If
Next
Rng1.Value = OutArr
End Sub
4. 单击确定后，将弹出另一个对话框，用于在另一工作表中选择条件，请参见截图：
5. 现在，所有不符合另一工作表中条件的行都已成功移除。
删除行使用 Kutools for Excel 删除不符合另一工作表中条件的行
如果您觉得 VBA 代码有些棘手，不妨试试 Kutools for Excel 的“比较范围”功能！
Kutools for Excel 包含 300 多个实用 Excel 工具，30 天内免费试用，无任何限制！立即获取
1. 选择要删除不符合条件行的工作表，然后点击 Kutools > 范围 > 单元格对比。请参见截图：
2. 在单元格对比对话框中，单击 范围 B中的按钮，即可选择您所需的条件范围。请参见截图：
 |
 |
 |
3. 然后单击确定，返回比较范围对话框，勾选不同值和选择整行。请参见截图：
4. 单击确定，关闭比较范围对话框后，您会看到与条件不同的值所在行已被选中。
5. 右键单击，从上下文菜单中选择删除，即可移除不符合另一工作表条件的行。
单击此处，深入了解 Kutools for Excel 的“比较范围”功能。
相关文章：
最佳办公效率工具
| 🤖 | KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行 | 生成代码| 创建自定义公式 | 数据分析及生成图表| 调用 Kutools Functions…… |
| 热门功能：查找、高亮或标记重复项 | 删除空白行 | 合并列或单元格且不丢失数据 | 不使用公式的四舍五入…… | |
| 高级 LOOKUP：多条件 VLookup | 多值 VLookup | 跨多工作表 VLookup | 模糊查找…… | |
| 高级下拉列表：快速创建下拉列表 | 级联下拉列表 | 多选下拉列表…… | |
| 列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列…… | |
| 特色功能：网格聚焦 | 设计视图 |增强编辑栏 | 工作簿和表管理器 | 资源库（自动文本）| 日期提取 | 汇总工作表 | 加密/解密单元格 | 按列表发送邮件 | 超级筛选 | 特殊筛选（筛选粗体单元格/斜体/删除线……） ...... | |
| 精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）| 50+ 图表 类型（甘特图，……）| 40+ 实用公式（基于生日计算年龄，……）| 19 插入工具（插入二维码，从路径插入图片，……）| 12 转换工具（小写金额转大写，汇率转换，……）| 7 合并和拆分工具（高级合并行，分割单元格，……）|……更多 |
使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……
Office Tab 为 Office 带来标签式界面，让您的工作更轻松
- 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
- 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
- 将您的工作效率提升 50%，每天减少数百次鼠标点击！
所有 Kutools 插件，一个安装程序
Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。
- 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
- 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
- 协同效果更佳— 在多个 Office 应用中实现高效协同
- 30 天全功能试用— 无需注册，无需信用卡
- 超值之选— 比单独购买插件更省钱