エクセル マクロ advancedfilter

以下の内容で問題点を教えて頂ければ幸いです。

cells (2,"A").value = "*" & cells(2,"A").value & "*"

Range("D6:E1000").AdvancedFilter xlFilterCopy, CriteriaRange:=Range("A1:A2"), CopyToRange := Range("A4"), Unique:=False

セルＡ２に日本語が入力されていれば、きちんと部分検索されるのですが、英語を入力した場合、うまくいきません。例えば、Ａ２にBaseballと入力した場合、Baseball GameやBaseball Hatは検索されますが、Japanese BaseballやHe is a baseball playerといったものが検索されません。

基本的なことで恐縮ですが、どなたかご教示頂ければ幸いです。

No.1 ベストアンサー 回答者： keithin 回答日時： 2011/04/12 20:48

実際のデータの方に何か問題があるように見えます。

記載されたマクロには問題ありませんし，実際にサンプルデータを作ってやってみても，意図通りに抽出されます。

まずはまっさらのシートに一度テストデータを作り直し，ご自分が作ったままのマクロを再テストしてみたらどうでしょう。

その上で，実際のデータを改めて見直してみてください。
マクロ以前に，手動操作でフィルタオプションの設定を操って練習してみるのも良いかも？しれません。

この回答へのお礼

早速にありがとうございます。

明日、データを作りなおしてみます。

お礼日時：2011/04/12 21:11