VBAでオートフィルターの再検索

現在ＶＢＡでオートフィルターで絞ってある条件を一度解除してもう一度同じ条件で検索をしたいと思っていますが、出来ず困っています。
内容としては
たとえば、Ａ１に"数字"、A2に"２"、A3に"3"とあった場合、A1でオートフィルターをかけ、絞り込みます。（何の条件で絞り込んだかは不明）
この状態から、VBAを使います。

ＶＢＡで「一度オートフィルターを解除し、再度オートフィルターで同じ条件で絞る」という作業をしたいのですが、解除はできますが、同じ条件で再度絞り込みができません。
（たぶんCriterialの値を取得するのでしょうか？それもやり方がわかりません。）

何をしたいのか目的はと聞かれると、説明するだけでもややこしくなってしまいますので、簡単にやりたい作業だけかかせていただきました。

こんな作業は出来ますでしょうか？
教えていただけたら、幸いでございます。
意味が分からなければ、また説明させていただきます。


　

No.1 ベストアンサー 回答者： Versailles123 回答日時： 2011/05/12 15:49

以下にシート上のオートフィルタに既に設定されている抽出条件を取得する方法が

記載されていますのでご参考までに。

http://www.moug.net/tech/exvba/0150044.htm

もし条件がないとか、複数列の抽出はないということであればこのソースを
もっと簡素化すればよいと思います。

この回答へのお礼

お早い回答、大変ありがとうございました。
解決いたしました。

お礼日時：2011/05/12 15:58