自动过滤器用于多个不相等的值

uda*_*726 5 excel vba excel-vba

我正在为excel表添加autofilter,如下所示.

With Sheets("Sheet1")
With .ListObjects("Summary").Range
    .AutoFilter Field:=1, Criteria1:=">400000", Operator:=xlOr, Criteria2:=Array("<>440400", "<>440600", "<>440300")
    .AutoFilter Field:=5, Criteria1:=">110", Operator:=xlAnd, Criteria1:="<105"
    .SpecialCells(xlCellTypeVisible).Copy
End With
End With
Run Code Online (Sandbox Code Playgroud)

结果我的价值大于400000.但是我的结果也是440400,440600和440300.如何添加两个过滤器?

小智 1

到目前为止,据我所知,这是不可能做到的。

我的工作:

1)突出显示符合条件的记录,一条一条循环

2)然后按高光过滤

希望这有帮助!