オートフィルターの条件指定

質問

こんばんは。

セルA1に入力した値で始まる値を検索したく困っています。

素直にオートフィルターのオプションから指定すれば出来るのですが、
誰でも処理できるよう「セルA1に条件を入力。集計ボタンをクリック。」で済ませたいのです。

Selection.AutoFilter Field:=1, Criteria1:="=＠＠＠* ", Operator:=xlAnd

上記＠＠＠をセルA1に指定させる記述を教えて下さい。
よろしくお願いします。

回答No.1

imogasi · ベストアンサー

例データ
コード
ax
sd
as
axzx
zx
casw
saxsdf
axzqwe
dfgs
axsdf
ーー
Criteria範囲　E1:E2
コード
ax*
ーーー
オートフィルタなら
Sub Macro2()
s = Cells(2, 5) 'E2
s = "=" & s
Selection.AutoFilter Field:=1, Criteria1:=s, Operator:=xlAnd
End Sub
結果
コード
ax
axzx
axzqwe
axsdf
ーーーーー
フィルタオプションなら
Sub Macro1()
d = Range("A65536").End(xlUp).Row

Range("A1:A" & d).Select
Selection.AutoFilter
Selection.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range _
("E1:E2"), Unique:=False
End Sub
ーー
結果
コード
ax
axzx
axzqwe
axsdf
ほとんどマクロの記録です。

お礼

オートフィルタの方法を利用しました。
s = Cells(2, 5) 'E2
s = "=" & s
の部分を訂正して無事に出来ました。
ありがとうございました。