VBA Excel - 组合多个自动过滤器

Question

我有多个过滤器 (Range("A5:I5")) 并希望像这样连续组合这些过滤器:

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:="="

但是它们似乎相互抵消，我的目标是"is"过滤器仅过滤之前已过滤的数据。
如何“堆叠”过滤器？

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 ，它不需要任何操作。