使用自动过滤器应用多个过滤器

Question

company 是一个包含未知数量公司的数组；

For i = 1 To 50
Worksheets("Data_Claims").Activate
Range("A1").AutoFilter _
Field:=1, _
Criteria1:=company(i)
If IsEmpty(company(i)) = True Then
Exit For
Next i

Answer 1

如果你想过滤 company 内的值，试试这个：

Worksheets("Data_Claims").Activate
Range("A1").AutoFilter _
Field:=1, _
Criteria1:=Array(company), _
Operator:=xlFilterValues

这里不需要使用循环