如何删除另一张纸上不符合条件的行？

如何删除另一张纸上不符合条件的行？

删除同一张纸上不符合条件的行可能并不困难，但是您知道有什么方法可以删除另一张纸上不符合条件的行，如下所示。 现在，我有两个技巧可以帮助您快速解决它。

使用VBA删除另一张纸上不符合条件的行

删除与另一张工作表上的条件不匹配的行 Kutools for Excel

 标准（在工作表2中）     之前（第1页）        之后（工作表1） 使用VBA删除另一张纸上不符合条件的行

有一个VBA代码可以帮助您删除另一张纸上不符合条件的行。

1。 按 Alt + F11键 显示 Microsoft Visual Basic应用程序 窗口。

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 3。 点击 运行，以 Kutools对于Excel 弹出对话框，选择要删除不符合条件的行的范围。 看截图：

4。 点击 OK，然后弹出另一个对话框，供您选择其他工作表中的条件，请参见屏幕截图：

5.现在，所有不符合另一张表中条件的行都将被删除。

删除与另一张工作表上的条件不匹配的行 Kutools for Excel

如果 VBA 代码对你来说有点困难，你可以试试 Kutools for Excel的比较范围功能。

Kutools for Excel 包括300多个便捷的Excel工具。 30天免费试用，不受限制。 立即获取

1.选择要删除不符合条件的行的工作表。 然后点击 Kutools > 比较范围。 看截图：

2.在 比较范围 对话框中，单击 范围B，然后可以选择所需的条件范围。 看截图：

3。 然后点击 OK，然后返回 比较范围 对话框，检查 不同的价值 和 选择整行。 看截图：

4。 点击 Ok，然后退出 比较范围 对话。 然后，您会看到选择了与条件不同的值行。

5.右键单击以单击 删除 从上下文菜单中删除与另一张纸上的条件不匹配的行。

点击此处获取更多信息 Kutools for Excel的比较范围。

相关文章： 在Excel中删除不包含某些文本的行