VBA

複数のエクセルを一括でまとめるVBA

投稿日:2017年12月10日 更新日:

作業概要・目的

複数のエクセルファイルを1ファイルにまとめる作業を自動化、効率的に処理する。

なお、本VBA機能を含む、VBAマクロツールを作成しました。
下記の記事からダウンロード可能です。

【HUNT】汎用マクロツールを作りました。

詳細手順

複数のエクセルを一括でまとめるVBAを作成する。

エクセルファイルを新規作成。

 

「空白のブック」をクリック。

 

「ファイル」をクリック。

 

「オプション」をクリック。

 

「リボンのユーザー設定」をクリック。

 

「開発」をクリックして「OK」をクリック。

 

「開発」タブが表示されるのでクリック。

 

「Visual Basic」をクリック。

 

「挿入」をクリック。

 

「標準モジュール」をクリック。

 

ソースコードを貼り付け。
※ソースコードは下記ブログ記事を参考。
IT Diary
【Excel】複数のエクセル(ブック)のシートを一つのブックに結合するVBA

 

右上のボタンをクリックして「Visual Basic」を閉じる。

 

「ファイル」をクリック。

 

「名前を付けて保存」をクリック。

 

「参照」をクリック。

 

任意のファイル名を入力。
※例として「同じフォルダにある複数のエクセルを一括でまとめるVBA」と入力。
ファイルの種類で「Excelマクロ有効ブック(*.xlsm)を選択。
「保存」をクリック。

 

 

まとめたいエクセルファイルを1つのフォルダに格納する。

フォルダを新規作成し、まとめたいエクセルファイルを格納する。
※フォルダ名は任意。例として「エクセルをまとめるテストフォルダ」と入力。

 

VBAを実行してエクセルファイルをまとめる。

手順「1」で作成したVBAを含むエクセルファイルを開いて、「コンテンツの有効化」をクリック。
※設定により、「コンテンツの有効化」は表示されない(クリック不要の)場合あり。

 

「開発」タブをクリック。

 

「マクロ」をクリック。

 

「Main」→「実行」をクリック。

 

まとめたいエクセルファイルが格納されているフォルダを選択→「OK」をクリック。

 

まとめるエクセルファイルと同じフォルダに「【結合】エクセル.xlsx」が作成される。

 

「【結合】エクセル.xlsx」を開くと、対象のエクセルのシートがコピーされている。

 

完了。

 

効果

工数・所要時間の削減効果見込み:90%。
本記事内容での工数・所要時間:約1分。
手作業の場合の工数・所要時間:約10分。
※エクセルファイル10個を1つずつ開き、情報をコピーして手作業で張り付ける作業を1ファイル1分とした場合。

工数

  • VBAを含むエクセルファイルの作成:3分。(※一度作れば使いまわし可能の為、以降は作成工数なし。)
  • VBAの実行:15秒ほど。(※まとめるエクセルファイルが10個ほどの場合。)

検証(手順)

「【結合】エクセル.xlsx」を開き、希望のエクセルファイルがまとまっているか目検にて確認。

事前確認点

まとめる対象のエクセルファイルに漏れ、重複がないか確認。

事後確認点

まとめる対象のエクセルファイルは破棄するのかどうか。関係者に確認しておく。

問題対応表

なし。

QA表

なし。

参考元情報・リンク

IT Diary
【Excel】複数のエクセル(ブック)のシートを一つのブックに結合するVBA

スポンサーリンク

pr001




pr001




-VBA

執筆者:

スポンサーリンク

スポンサーリンク

PR005


ハント

VBA、GoogleAppsScript、思考法など、
業務効率化に繋がる情報を投稿中です。

普段は某IT企業に勤務しています。
Twitter @skillhunter007

好きなもの:アイアンマン、

ほしいもの:フライデー
(アイアンマンに登場するAI)、
盗賊の極意(スキルハンター)、