エクセルＶＢＡで、名簿の住所を検索

エクセルで下記のように顧客名簿を作っています。

　　Ａ　　　　　Ｂ　　　　　Ｃ　　　　Ｄ　　　　Ｅ　　　　　　　Ｆ　　　　Ｇ
顧客NO.　顧客名　フリガナ　住所　郵便番号　電話番号　備考

ＶＢＡを使って、同じ地域に住んでいる人をオートフィルタで抽出したいのですが、どうすればよいのでしょう？
例えば、『西区』と入力すれば、住所内に『西区』が含まれる人全部が抽出というようにしたいのですが。
入力する単語はその都度変わります。

どなたかアドバイスください。
よろしくおねがいします。

No.2 ベストアンサー 回答者： merlionXX 回答日時： 2009/03/17 10:53

一例です。

Sub test01()
ans = InputBox("検索文字列を入力してください")
With ActiveSheet
If .AutoFilterMode Then 'オートフィルタモードがオンなら
.AutoFilterMode = False 'リセットする
End If
.Range("A1:G1").AutoFilter 'オートフィルタモードをセット
.Range("A1:G1").AutoFilter Field:=4, Criteria1:="=*" & ans & "*" '4つ目のフィルターに検索文字
End With
End Sub

この回答へのお礼

まさに知りたい方法でした。
ありがとうございました。

お礼日時：2009/03/17 11:53

No.1 回答者： xls88 回答日時： 2009/03/17 10:40

Sub tes1()

ActiveSheet.Range("$A$1:$G$100").AutoFilter _
Field:=4, Criteria1:="=*" & Range("H1").Value & "*", Operator:=xlAnd
End Sub

この回答へのお礼

回答ありがとうございます。
できれば、セルに入力ではなく、インプットボックスなどで、
おこないたいと思っています。
早々の回答ありがとうございました。

お礼日時：2009/03/17 11:54