マクロでオートフィルタで抽出する項目を
idx = Split("A社,B社,C社,・・・・・", ",")
として入力し、
.AutoFilter Field:=1, Criteria1:=str(idx)
というように抽出し、新しいシートにコピーているのですが、
社名の追加や変更がよくあるので、
その場合、毎回マクロを訂正しなければなりません。
オートフィルタのドロップダウンリストに表示されるものを
1つずつ全て抽出して新しいシートにコピーする方法はないでしょうか?
ご存知の方、どなたか教えてください。
よろしくお願いします。
No.2ベストアンサー
- 回答日時:
ご回答ありがとうございます。
マクロ初心者なので、あまりわからないのですが、
myListを作成する方法があるんですね。
コピーさせて使わせていただき、ちゃんとマクロ実行することができました。
でもまだ、どうしてそうなるのか理解できていないので、
少しずつ勉強しようと思います。
ありがとうございました。
No.1
- 回答日時:
全国の成績表から部店別のシートを作ってます。
それと同じと思っていいのですね?
マクロはご存知のようなのでポイントだけ。
・会社名でリストをSORTする。
・先頭からセルを読み次のセルと比較し会社名が変更になったら
覚えておいた開始行と終了行まで範囲選択しコピー。
でやってますけど。
早々のご回答ありがとうございます。
実はマクロは超初心者なのです。
質問に書いたものも、教えていただいてできたものです。
なので、せっかく回答いただいたのですが、
具体的にどうすれば良いのか、少し理解できませんでした。
勉強不足で本当にすみません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロで対象ごとにシート分けしてその内容をセルに書き込みたい 9 2022/08/24 13:23
- Excel(エクセル) Excelマクロ 差分抽出の方法が知りたいです。 2 2023/03/07 13:25
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) 前回質問の続きになりますが、下記マクロでシート1からシート2の抽出項目セルB3「りんご」とセルC2「 2 2022/12/02 17:37
- Visual Basic(VBA) エクセルVBAコピー 2 2022/06/08 21:45
- Excel(エクセル) ExcelVBAについて。 2 2022/12/10 20:08
- Visual Basic(VBA) エクセルについて教えてください。 3 2023/06/28 09:11
- Visual Basic(VBA) 【困っています2】VBA 追加処理の記述を教えてください。 2 2022/08/26 11:42
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Excel(エクセル) マクロ削除再抽出する方法を教えて下さい。 6 2022/11/26 11:03
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでオートフィルタのボ...
-
エクセルで時刻(8:00~20:00)...
-
エクセルの偶数行(奇数行)の抽出
-
エクセルのオートフィルタで最...
-
Excelのオートフィルタで非表示...
-
エクセルにて、フィルタをかけ...
-
access マクロでのフィルタの...
-
可視セルを対象としたcountifが...
-
エクセルで、条件に一致した行...
-
オートフィルタで3つ以上の条...
-
Excelオートフィルターで絞り込...
-
エクセル・条件付で行を削除す...
-
オートフィルタの抽出が途中で...
-
上から順にすべてのデータを抽...
-
オートフィルタで抽出したデー...
-
オートフィルタは金額の桁カン...
-
エクセル関数で、数字の入った...
-
マクロで条件に合った行の選択...
-
Excelで文字を入力と自動的にフ...
-
エクセルの行挿入、行削除の禁止
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで時刻(8:00~20:00)...
-
エクセルでオートフィルタのボ...
-
エクセルのオートフィルタで最...
-
Excelのオートフィルタで非表示...
-
エクセルの偶数行(奇数行)の抽出
-
access マクロでのフィルタの...
-
エクセル関数で、数字の入った...
-
オートフィルタで3つ以上の条...
-
Excel共有ブックのオートフィル...
-
エクセルで、条件に一致した行...
-
エクセル・条件付で行を削除す...
-
エクセルにて、フィルタをかけ...
-
データの抽出を教えてください
-
エクセルで検索窓のようなもの...
-
Excelで文字を入力と自動的にフ...
-
Excelオートフィルターで絞り込...
-
オートフィルタで選択したデー...
-
なぜShowAllDataだとうまく行か...
-
ACCESSでスペースの抽出
-
エクセル フィルタで抽出したデ...
おすすめ情報