EXCEL VBA 集計結果を別ファイルに表示

質問

元データファイルに下記のような一覧があります。
この元データをもとに、新しく開いたファイルに集計結果の一覧を作成するマクロで悩んでいます。
(ずれていて見づらくてすいません。)

＜元データ＞
A B C D E
日付 都道府県名 区分１ 区分２ 内容
2008/6/22 北海道 ア あ あああ
2008/10/3 鹿児島 エ う ううう
2009/6/22 和歌山 イ え えええ
2010/6/22 千葉 ア う ううう
2011/1/20 大阪 イ お おおえ
2011/4/15 北海道 オ い いいい
2011/8/3 大阪 イ い いあい

上から日付順で並んでいるだけです。
これを都道府県名、区分２、月、内容を選択して、選択した条件を縦軸に横軸は常に区分１でカウントした結果を新しく開いたファイルのシートに下記のような一覧で表示します。

＜集計結果＞
◎都道府県別の場合
A B C D E
都道府県名 ア イ ウ エ オ
北海道 1 0 0 0 1
：
千葉 1 0 0 0 0
：
大阪 0 2 0 0 0
：
和歌山 0 1 0 0 0
：
鹿児島 0 0 0 1 0

◎内容別の場合
A B C D E
内容 ア イ ウ エ オ
あああ 1 0 0 0 0
いいい 0 0 0 0 1
ううう 1 0 0 1 0
えええ 0 1 0 0 0
おおえ 0 1 0 0 0
いあい 0 1 0 0 0

※元データは日付以外はバラバラの順番です。その中から、例えば内容別の場合は全ての内容の種類分の個数（さらに区分１でわける)が必要になります。
※内容や、都道府県の順番は一定の規則の元並べたいのですが、コード上でできなければ、[データ]-[並び替え]のオプションを使用しなければならないかなと思っております。(できればこれもコードに組み込めたらと思っています。)
※上記の集計後の一覧は日付を全て集計の対象にしていますが、実際は2008年～2010年や2009年のみといったように対象を絞って集計をする予定です。

考えれば考えるほどに複雑になってきて悩んでいるのですが、こういったことをするコードはvbaで可能でしょうか。またそれができるサンプルコードや方法、参考になるものがあったら教えてください。

回答No.1

CC_T · ベストアンサー

初歩的なマクロは作成できるレベルと見て考え方だけ回答します。

要はデータリストの区分１の内容別にカウントアップすればいいわけですね？
であれば、
１）データリストのシートとは別に記入用シートを必要数作っておいて
２）マクロでリストの上から下までを順次読み込んで
３）記入用シートに一致する行があるか確認して
４）一致する内容が既に登録されていなれば新規追加、一致内容があればそこをカウントアップ
とすれば目的が達成できそうですね。

スマートとは言えないかもしれませんが、これなら繰り返し処理と条件分岐を知っていれば対応できますので、さほどマクロの知識も必要ないでしょう(^^;

都道府県の処理を例に説明すると、
(1)データシートとは別に「都道府県」シート（なんならbook分けてもいいですが）を作る。
　Ａ列に都道府県名、Ｂ列以下を区分１内容としていくわけですが、最初は空っぽでも良い。
(2)データリストの上からスタートして、B列（県名）とＣ列（区分１）のセルの値を読み込む
　例：４行目を処理しているときは、(2)で読み込んだＢ４セルの値は「和歌山」、Ｃ４セルの値は「イ」になりますね。
(3)「都道府県」シートのＡ列（都道府県名）の上から順に(3)で得たＢ列の値と比較していく。
　例では「和歌山」の一致行がなくて””（空白）に行きつくから、その行Ａ列に(3)で得た値「和歌山」を書き込みます。
(4)今度はＡ列を右に検索していって、(3)で得た「イ」と一致するか比較する。
　例では「イ」も初出になりますから、既にあるアとエの横に新たに「イ」を書き込みます。
(5)(3)で得た対象の行と、(4)で得た対象の列が交差するセルの値を＋１する。
　例ではＤ４セルを＋１することになります。
　｜　　　　Ａ　　　　｜　Ｂ　｜　Ｃ　｜　Ｄ　｜　Ｅ　｜　Ｆ　｜　…
１｜　都道府県名　｜　ア　｜　エ　｜　イ　｜　　　｜　　　｜
２｜　北海道　　　　｜　1　｜　　　｜　　　｜　　　｜　　　｜
３｜　鹿児島　　　　｜　　　｜　１　｜　　　｜　　　｜　　　｜
４｜　和歌山　　　　｜　　　｜　　　｜　１　｜　　　｜　　　｜
(6)以下、データリストの一番下の行まで繰り返し、データの各行の値をいちいち出力用リストの値と比較して、該当するセルを１つインクリメントしる、という流れです。

(2)の段階で他の区分２や内容も読み込んでおいて、(3)と同様にそれぞれのシ―トでの対象行を探せばあとは同じですし、予め記入用のシートにタイトル（都道府県名や区分１の項目）を記入しておいて、データシートの２行目から処理を開始してやれば、区分１の並びも都道府県の並びも好きな初期設定で出力できます。

日付を絞るなら(2)の前にどこかのセルやinputboxで日付の上限下限を入力させておいて、(2)の処理時に範囲内のデータでなければその行をスキップして次の行に移ればいいでしょう。

マクロ走らせるたびにカウントは積み上げられていきますので、実際はマクロの最初に出力用シートの記入済み値を消すって操作を入れておいたほうがいいでしょうね。

お礼

回答をいただきましてありがとうございます。しかも簡単な方法で出来るよう示していただき、何を悩んでいたのかとおもうほど頭の中がすっきり整頓され教えていただいた考え方で思うとおりのことができました。

回答内の記入用シートを作るということが新しいファイルに集計結果を表示するという望んでいた結果にマッチし、この方法でやりたかったことが全てできました。また、最後のほうの補足も並び替えでどうしようかと思っていた点が解決しました！

ありがとうございました。