フォルダ内の複数ブックを同シート名毎に連結させたい

フォルダ内に3つの営業所のブックがあって、それぞれ科目ごとのシートがあり、例えば消耗品仕訳、商品仕訳、雑費仕訳等全部で75シートあります。これを新規ブックにシート名毎に3つの営業所の明細を結合させたいです。各シートの項目名と並び順は統一してあります。共通のシート名を新規ブックの各シート名に、反映させたいです。つまりは、新規ブックにも科目ごとの75シートがあり、そのそれぞれのシートを見ると3つの営業所のデータが一覧で見れる状態にしたいです。

No.1 回答者： よろずやkinchan 回答日時： 2022/04/08 10:17

(０) フォルダ内に「合計仕訳表作成.xlsm」を置く

      ※ダブルクリックして起動する
(１) 「営業所1」のブックのコピーを新規ブックとして開く
(２) 「営業所2」「営業所3」の順に(８)までの処理を繰り返す
(３) 当該営業所のブックを開く
(４) 新規ブックの各シートに対して順に(６)までの処理を繰り返す
(５) 当該シートの最下行の下に当該営業所の２行目以下をコピペ
(６) 次のシートの処理へ
(７) 当該営業所のブックを閉じる
(８) 次の営業所の処理へ
(９) 新規ブックの各シートに対して順に(11)までの処理を繰り返す
(10) 当該シートを日付順に並べ替える
(11) 次のシートの処理へ
(12) 新規ブックを名前を付けて保存する
(13) 終了メッセージを表示する
(14) 終了