Excel:リストからシート分割したい

質問

図1のデータを地域別に整理しようと思い、図2のようにvlookupで引っ張ってくるように設定しました。
図2のD1には入力規制でリストを作成し、リストを変更すると、D4:D12が変わって自動で合計を計算するようにしました。　実際は、地域の項目に50種類ぐらいあります(個人データなのでここではサンプルを使っています）。これを、リストの項目毎にシートを作成することはできますか？今は、リストに「福岡、熊本、佐賀、宮崎」とありますが、できれば、シート名にも反映させることができればと思っています。小生、VBAは初心者中の初心者ですので、セル番号や範囲が変わっても対応できるように、簡単な解説も頂けると幸いです。よろしくお願いします。

回答No.3

kagakusuki · ベストアンサー

D1セルの値をシート名に反映させるのは面倒ですから、シート名の方を予め「福岡」、「熊本」、「佐賀」、「宮崎」等にしておき、D1セルにシート名が表示される様にされた方が宜しいかと思います。

　まず、D1セルに次の関数を入力して下さい。

=REPLACE(CELL("filename",D1),1,FIND("]",CELL("filename",D1)),)

すると、D1セルにシート名が自動的に表示される様になりますから、そのシートのコピーシートを作成して、それぞれのシートのシート名を、

福岡
熊本
佐賀
宮崎

等に変更されると良いと思います。

お礼

シートを作成する作業が少々大変ですが、がんばってみます。ありがとうございます

回答No.2

imogasi

ピボットテーブルで質問に近い集約データは作れると思う。特に「ページ」の利用で。
しかし「ページ」は別シートでなく、ページ別にするには操作が要る。
ーー
VBAでやれば、VBAの出来る人には難しくない。しかしほとんど経験の無いものには、丸投げで、回答を書くのもどうかと思う。
やり方・考えかたの１方法は
県列＋上中下級別＋果物順に（この優先順位で）全データをソートし、
上の行から、１行ずつ処理していく
その処理は、県が変わると、書き出す場所を、別（となりの）シートに移る
（プログラム的には、シートタブの右端のとなりに、シート挿入し、挿入したシート名を県名にする）
上級など級が同じで、同じ果物の行が続く間は、件数の変数を作って、その変数に、件数を足しこみ、級+果物が変わると、件数合計を書き出し、変数をご破算にして、級や果物の書き出しの行を下行に変える。
あとは罫線を引くということが必要。
（なお回答コードをつくる場合に、回答者側で、テストに使うデータ例は、画像でデータを挙げられると使えない。新たにシートにデータを作るのは、手数がかかる。質問にデータはテキストで貼り付けてほしい。）

回答No.1

chonami

まず、元リストと使ってピボットテーブルを作成します。
その際、ページフィールドに地域を持ってきておきます。

出来上がったら、

ピボットテーブル ツール→オプション→ピボットテーブル→オプション→レポート フィルタ ページの表示

を選択すると、地域ごとにシートが作成され（名前もついて）ます。
表もピボットテーブルを利用すれば一石二鳥ですが、別の表がよければ全部選択してから数式等入力すればいっぺんにできるんじゃないですかね。

お礼

ピボットの表示形式自体が自分の構想と違いましたが、とても役に立ちました。