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, xlFilterValuesEnd Sub