エクセル マクロ オートフィル（含まない）

オートフィルターについて教えて下さい。

A1セルに「1221」という番号があります。
B1セル～B5セルまでに、下記のような4桁の数字があります。
B1「2255」
B2「3704」
B3「1221」
B4「1951」
B5「4258」
B列をオートフィルターにて、セルA1値（1221）を含まないように抽出したいです。
どのようなマクロになりますでしょうか？
セルA1値は、固定ではなくその時々で番号を変えて抽出したいです。
（本来B値は、200行ほどあります）
上記の説明でわかりますでしょうか？
申し訳ございませんが、ご教授下さい。
宜しくお願いします。

質問者からの補足コメント

• B1セルは、タイトルが入っております。
  上記B1～B5となっておりますが、B2～B6でお願いします。
  申し訳ございません。

    補足日時：2017/10/13 10:38

No.2 ベストアンサー 回答者： GooUserラック 回答日時： 2017/10/13 10:41

それでしたら、以下ではいけませんか？

Sub Test()
Cells.AutoFilter Field:=2, Criteria1:="<>" & Range("A1").Text
End Sub

この回答へのお礼

GooUserラックさん
ご回答ありがとうございます！
できました！
お忙しい中、本当に有難うございました！

お礼日時：2017/10/13 10:58

No.1 回答者： GooUserラック 回答日時： 2017/10/13 10:23

ちなみにオートフィルターの場合１行目はタイトル行とされてしまうので B1セルは常に表示されてしまいますが宜しいのでしょうか？

また、シート全体にフィルターをかけた方が良いのでしょうか？それともＢ列のみフィルターを掛けるのでしょうか？

この回答へのお礼

ご回答ありがとうござます。
説明不足で申し訳ございません。
シート全体でフィルターをかけたいです。
可能でしょうか？
申し訳ございませんが、宜しくお願いします。

お礼日時：2017/10/13 10:34