VBA Excel – 结合多个自动filter

我有多个filter（范围（“A5：I5”）），并希望像这样连续组合这些filter：

Range("A5:I5").Select Selection.AutoFilter Range("A6:A500").AutoFilter Field:=1, Criteria1:="<>0" Range("B6:B500").AutoFilter Field:=2, Criteria1:="<>" Range("F6:F500").AutoFilter Field:=6, Criteria1:="yes", Operator:=xlOr, Criteria2:="=" Range("G6:G500").AutoFilter Field:=7, Criteria1:="yes", Operator:=xlOr, Criteria2:="=" 

然而，他们似乎相互取消了，我的目标是“是”filter只过滤已经过滤的数据从前。
我怎样才能“堆叠”filter？

Answer 1

使其成为一个Range如：

 Range("A5:I5").Autofilter With Range("A6:I500") .AutoFilter Field:=1, Criteria1:="<>0" .AutoFilter Field:=2, Criteria1:="<>" .AutoFilter Field:=6, Criteria1:="yes", Operator:=xlOr, Criteria2:="=" .AutoFilter Field:=7, Criteria1:="yes", Operator:=xlOr, Criteria2:="=" End With 

也尽量避免。select，它不需要任何操作。