VBA #024 - オートフィルタ (1列で複数条件)

1列で複数条件でオートフィルタするメモ。

common.bas

Dim txtval(1) As String

'検索値設定
txtval(0) = "4"
txtval(1) = "8"

'1列で複数条件
Worksheets("Sheet1").Range("A1").AutoFilter Field:=1, Criteria1:= txtval, Operator:= xlFilterValues

• 参考文献
  Office VBA Reference