オートフィルタで表示されるリスト全部をマクロで抽出したい

マクロでオートフィルタで抽出する項目を
idx = Split("A社,B社,C社,・・・・・", ",")
として入力し、
.AutoFilter Field:=1, Criteria1:=str(idx)
というように抽出し、新しいシートにコピーているのですが、
社名の追加や変更がよくあるので、
その場合、毎回マクロを訂正しなければなりません。

オートフィルタのドロップダウンリストに表示されるものを
１つずつ全て抽出して新しいシートにコピーする方法はないでしょうか？

ご存知の方、どなたか教えてください。
よろしくお願いします。

No.2 ベストアンサー 回答者： papayuka 回答日時： 2007/09/01 23:38

最近回答したものですが、多分ご希望に近い内容だと思います。

http://okwave.jp/qa3291205.html

この回答へのお礼

ご回答ありがとうございます。
マクロ初心者なので、あまりわからないのですが、
myListを作成する方法があるんですね。
コピーさせて使わせていただき、ちゃんとマクロ実行することができました。
でもまだ、どうしてそうなるのか理解できていないので、
少しずつ勉強しようと思います。
ありがとうございました。

お礼日時：2007/09/02 02:09

No.1 回答者： rex9200 回答日時： 2007/09/01 23:29

全国の成績表から部店別のシートを作ってます。

それと同じと思っていいのですね？
マクロはご存知のようなのでポイントだけ。

・会社名でリストをＳＯＲＴする。
・先頭からセルを読み次のセルと比較し会社名が変更になったら
覚えておいた開始行と終了行まで範囲選択しコピー。
でやってますけど。

この回答へのお礼

早々のご回答ありがとうございます。
実はマクロは超初心者なのです。
質問に書いたものも、教えていただいてできたものです。
なので、せっかく回答いただいたのですが、
具体的にどうすれば良いのか、少し理解できませんでした。
勉強不足で本当にすみません。

お礼日時：2007/09/02 02:05