[[20220106104916]]　『オートフィルターの結果を別シートに貼り付け』（やまかわ）　ページの最後に飛ぶ

『オートフィルターの結果を別シートに貼り付け』（やまかわ）

私はVBA初心者でして、皆様にアドバイスをお願いしたいと考えております。
アンケート集計の自動化を行いたいと考えておりまして、次の前提のデータを次の手順で、a～gまで順にオートフィルターを掛け、その結果を別シートに貼り付ける作業をVBAで自動化したいと考えています。

a b c d e f g
1 1 1 4 2 3 1
1 2 2 5 1 2 4
2 1 2 2 1 1 4
･････

【前提】
1.データは2行目から200行くらいまであります。（1行目はタイトル行）
2.アンケートの種類（設問の数）によって、fとgはデータに存在しない場合があります。
3.アンケートの種類によって、選択肢の数が異なります。選択肢は最小2、最大10あります。各設問にいくつの選択肢が設定されるかは決まっていません。（設問aの選択肢が常に2つというわけではありません）

【手順】
1.1行目（タイトル行）でオートフィルターを掛け、設問aで1と選択したデータを抽出します
2.シートを追加し、1のデータを貼り付けます。
3.2のシートの名称を設問a-1に変更します。
4.オートフィルタで、設問aで2と選択したデータを抽出します
5.シートを追加し、4のデータを貼り付けます。
6.5のシートの名称を設問a-2に変更します。

以上の手順を設問aの選択肢1～10（選択肢が存在しない場合は処理をしない）で繰り返し、
設問a→設問b・・・と順に処理を行っていくことを想定しています。

大変図々しいお伺いで大変申し訳ありません。
どうぞよろしくお願い申し上げます。

＜使用 Excel：Excel2013、使用 OS：Windows10 ＞

今、できているところまであげてみてはいかがでしょうか。
（w） 2022/01/06(木) 11:02

 こんにちわ～＾＾
気になった点だけ。。。
ご提示の表を拝見すると、1種類のアンケートの表の様な感じ
がするのですが。
同じ様な表がシート別とかブック別で、他にも、
どっさり。。。有るのでせうか。。。(#^ ^#)
Ａ～Ｅ
Ａ～Ｇ
Ａ～Ｆ
m(_ _)m
（隠居Z） 2022/01/06(木) 12:07

https://www.239-programing.com/cgi-bin/excelvba_bbs.cgi?id=496
https://excelfactory.net/excelboard/excelvba/excel.cgi?mode=all&namber=194583&rev=0
マルチ常連？
（マル） 2022/01/06(木) 14:28

質問者がまるなげ～～～～！

オートフィルタでの絞り込みやら転記やら
「オートフィルタ　VBA」でググればたくさん出てくるでしょうよ。
調べた結果分からなくて聞くのは分かるけどさ～。
（まるなげ太郎） 2022/03/14(月) 15:54

コメント返信：

[ 一覧(最新更新順) ]

[[20220106104916]] 『オートフィルターの結果を別シートに貼り付け』（やまかわ） ページの最後に飛ぶ

[[20220106104916]]　『オートフィルターの結果を別シートに貼り付け』（やまかわ）　ページの最後に飛ぶ