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

質問

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

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

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

回答No.2

papayuka · ベストアンサー

最近回答したものですが、多分ご希望に近い内容だと思います。
http://okwave.jp/qa3291205.html

お礼

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

回答No.1

noname#252806

全国の成績表から部店別のシートを作ってます。
それと同じと思っていいのですね？
マクロはご存知のようなのでポイントだけ。

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

お礼

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