チームで作業した結果をExcel VBAでまとめてみました。

先日、大量の入力作業をするときに、地域ごとにExcelファイルを分割しチームを作ってみんなに入力していただきました。

入力作業があらかたおわりましたので、こんどは集計のため大量のファイルを統合する必要があります。

フォルダは市区町村ごと、その下に区のフォルダがあり、その下に地域ごとのファイルがあるという形です。

○い市
　イ区

　ロ区

これを市区町村ごとに一枚のエクセルシートにとりまとめて、グラフ化するのに使いたい。

手作業でも不可能ではないですが、１００個以上のエクセルファイルを開いて、コピーして閉じるというのは、まる一日かかる作業です。

・・・というわけで、この作業をＶＢＡで作ってみました。

主な機能はこんな感じです。

・フォルダを指定する。
・サブフォルダも含めてぜんぶのExcelファイルをひとつづつ開く。
・指定の箇所をコピーして、指定のシートの最後尾にはりつける。

ググってみたらちょうどいいコードがありました。

Office田中さんのVBA、すごいです！
使い方まで詳細で、使いやすい。さっそくコピペさせていただきました＾＾

あとは、「マクロの記録」で指定箇所をコピーしてペーストしてコードを採取。

材料がそろったら、しゃくしゃくまとめていきましょう。

できましたー＾＾

所要時間、だいたい２時間。

フォルダを指定するだけで、ファイルをざくざくまとめてくれます。

これで一日がかりの作業が２時間で。次からは１分で完成です。

ソースコードを頂いた、Office田中の田中さんの講義が面白すぎるって話題になっていました。
ほんとうにおもしろいです。Excelが大好きすぎてびっくりします。世界一Excelを愛した男です。
http://matome.naver.jp/odai/2137837284176430301

入力作業を手伝ってくれた皆様、ほんとにほんとにありがとう！！！