自动过滤用于VBA中的多个字段

Question

我正在尝试将自动过滤器应用于一组按两列过滤的数据。有没有比我下面写的更有效的方法，它在一个语句中处理两个字段，而不是必须编写另一个实际上相同的块并使代码冗长？

Range("A1").CurrentRegion.AutoFilter _
Field:=5, _
Criteria1:="1", _
VisibleDropDown:=True

Range("A1").CurrentRegion.AutoFilter _
Field:=6, _
Criteria1:=">0", _
VisibleDropDown:=True

Answer 1

这有点清洁：

With Range("A1").CurrentRegion
    .AutoFilter 5, "1"
    .AutoFilter 6, ">0"
End With

如果您愿意，可以在标识符中添加。默认为VisibleDropDown = True，因此您不需要它。

否则，您无法在同一行中自动筛选多个字段。