AdvancedFilter 在 Excel VBA 中排除多个条件

如何解决AdvancedFilter 在 Excel VBA 中排除多个条件

我一直在尝试使用 VBA 的高级过滤方法来排除一组条件。这是一个简化的例子。

我的标准存储在工作表“标准”中。

我现在想过滤数据，以便排除任何包含名称“Joe”或作业“Pilot”的条目。 我尝试了以下方法：

Sub filter_data()
 With Worksheets("Data")
  .Activate
  .Range("A1:C10").AdvancedFilter _
  Action:= xlFilterInPlace,_
  Criteriarange:= Worksheets("Criteria").Range("A1:C3")
 End With
End Sub

如果我不使用 <> 运算符，我检查了我的代码是否过滤了数据。这就像一个魅力，只包含包含“Joe”或“Pilot”的条目。但是，排除上述条目不起作用。有人可以帮忙吗？

解决方法

因为您正在寻找您想要的否定而不是 Or。

然后在 A2 中输入：<>Joe

然后在 C2 中输入：<>Pilot

所以它看起来像这样：

然后将引用更改为仅两行：

Sub filter_data()

    With Worksheets("Data")
        .Range("A1:C10").AdvancedFilter _
        Action:=xlFilterInPlace,_
        CriteriaRange:=Worksheets("Criteria").Range("A1:C2")
    End With
End Sub