PCメモ

Excelを中心とした業務改善の記録

複数条件でフィルターをかける(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

 

f:id:abv72:20210421221351p:plain