オートフィルタ 検索

質問

オートフィルタで三つの条件でデータを抽出するマクロを作っています
以下のような記述は誤りでしょうか？

ActiveSheet.Range("$B$2:$D$114").AutoFilter Field:=1,
Criteria1:="=02722*" _
, Operator:=xlOr, Criteria2:="=02729*" _
, Operator:=xlOr, Criteria3:="=02737*"

表はこのようなものです
↓キー
番号　　　　　　名前　　　　　　値
027＊＊　　　　　＊＊　　　　　＊
027＊＊　　　　　＊＊　　　　　＊
027＊＊　　　　　＊＊　　　　　＊
・
・
・

回答No.1

zap35

Criteria3は指定できません。条件が３つ以上ある場合の抽出ならAdvancedFilterメソッドが使用できますが、オートフィルタのような絞り込みとは動作が異なりますので、使用目的に合うかどうか…
（「データ」→「フィルタ」→「フィルタオプションの設定」の機能です）

Range("$B$2:$D$114").AdvancedFilter Action:=xlFilterCopy, _
　　CriteriaRange:=Range("E2:E5"), CopyToRange:=Range("I3"),　_
　　Unique:=False