vba - 高级自动筛选以排除某些值

Question

我想过滤 Excel 工作表中的大量姓名。在另一张表中，我包含了一个名称列表，我想将其过滤掉并从更大的列表中排除。我将如何使用高级过滤器来做到这一点？我在下面尝试过这个，但它似乎不起作用。我的大列表在 K2:K5000 中，我的标准在 H2:H3 中(标准会增长，但我将列表保持在较小的范围以进行测试)。任何帮助将不胜感激!

Sub Filter()
    Sheet5.Range("K2:K5000").AdvancedFilter Action:=xlFilterInPlace, _
        CriteriaRange:=Sheets("Sheet3").Range("H2:H3"), Unique:=False
End Sub

Answer 1

要使用高级过滤器从 K2:K5000 中排除H2:H3 中的值，您可以使用以下方法:

• 确保单元格 K1 不为空(输入任意标题)
• 查找 2 个未使用的单元格(例如 I1:I2)
• 将I1留空

• 在I2中输入以下公式

   =ISNA(MATCH(K2,$H$2:$H$3,0))
  

• 使用以下代码排除行

   Sheet5.Range("K1:K5000").AdvancedFilter Action:=xlFilterInPlace, _
       CriteriaRange:= Sheets("Sheet3").Range ("I1:I2"), Unique:=False