部署別のデータに集計する、最も頭を悩ます、少々複雑な処理になります。全体の処理手順は以下になります。・データ収集シート「データ」に、ファイル一覧で取得したExcelファイルの先頭シートのデータ集める。部署別のシートに、担当者・年月ごとの集計値を出力する。部署、担当、日付で並べ替える。部署、担当、日付で並べ替える。部署、担当の重複のない一覧を作成Sumifs関数を使い部署、担当で集計する。当該部署で、部署、担当で集計した表をフィルタしてからコピーする。・部署別作成の・方法2この部分の解説になります。Sub少々難解なコードではありますが、方法1よりは理解しやすい内容です。個別のVBAコードのほとんどは、既に解説しているものばかりですが、AdvancedFilter(フィルタオプションの設定)ここが初めての登場です。フィルタオプションの設定リボンの「データ」タブ→フィルタ内の「詳細設定」こちらの機能を使っています。コードの詳細は、マクロVBA入門「第90回.フィルタオプションの設定(AdvancedFilter)」ワークシートの操作「フィルタオプションの設定」のVBAの記述になります、便利な機能ではありますが、そもそも、ワークシートの操作が難しいこともあり、あまり有効に使われていないように感じます。「データ」タブ→「並べ替えとフィルター」グループの「詳細設定」この機能を使う場合のVBAになります。手動でも、ちょっと面倒な操作です。ユニークなデータを出力するシートを選択してから、「フィルタオプションの設定」を起動します。元データのシートで、「フィルタオプションの設定」を起動してしまいがちですが、それでは上手くできません。本来は、手動で出来なければマクロは使わない方が良いのですが、AdvancedFilterに関しては、このように書けば、ユニークなデータが取得できると割り切っても良いかもしれません。ステップイン(F8)で、変数の中身を確認しつつ、1ステップごとに確認しながら見ていくようにして下さい。今回のVBAコードは、まさしく手操作をそのままVBAにしたものです。作業列の追加、ユニークデータの作成、SumIfsでの集計、オートフィルタでの絞り込み、シートのコピーマクロを1行動かすごとに、これらが見て取れるはずです。VBAコードと実際のシートの動きを対比させながら、じっくりと読み解いてください。月別ブックより部署別シートに担当別に集計するNo4このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。月別ブックより部署別シートに担当別に集計するNo4このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。