複数条件でフィルターをかける（AutoFilter 配列）

AutoFilterメソッド

セル.AutoFilter Field, Criteria1, Operator, Criteria2

Criteriaで条件指定できるのは2つまで。
3つ以上条件指定する場合は、引数Criteria1を配列形式で指定する。

条件2つ

With Range("A1")
　.AutoFilter field:=1, Criteria1:="*B*", _
　　Operator:=xlOr, Criteria2:="*C*"
End with

 条件3つ以上

Sub wrk()

　Dim a(2) As String
　a(0) = "B"
　a(1) = "C"
　a(2) = "F"
　Range("A1").AutoFilter 1, a, xlFilterValues

End Sub