ExcelVBA Officeソフト 効率化

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

投稿日:

作業概要・目的

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

詳細手順

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

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

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

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

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

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

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

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

「Visual Basic」をクリック。

「挿入」をクリック。

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

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

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

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

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

「参照」をクリック。

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

 

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

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

 

3、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




-ExcelVBA, Officeソフト, 効率化

執筆者:

関連記事

複数のシートをコピーして1つのシートに縦にまとめるエクセルVBA

ブックにある複数のシートを1つのシートに縦にまとめるエクセルVBAをご紹介します。 次のサンプルコードを使うと、 「ファイルを開く」ダイアログを表示。 シートをまとめたいエクセルブックを選択。 選択し …

仕事の速い人のシンプルな3つの工夫

仕事が圧倒的に速い人がいます。 「仕事の速い人」はどうして仕事が速いのか、 「仕事の速い人のシンプルな3つの工夫」をご紹介します。 整理整頓している 「仕事の速い人」は「整理整頓」しています。 「仕事 …

フォルダを一括で作成する方法

作業概要・目的 Windowsでのフォルダ作成作業を自動化、効率的に処理する。 詳細手順 1、バッチファイルを作成する。 テキストファイルを新規作成。 作成したテキストファイルに以下を入力。 ※「@r …

メールを効率化する7つの方法(その1)初めに趣旨(結論)を書く

ビジネスで毎日見るものの1つにメールがあります。 現代において、数十、数百件のメールを毎日処理し、 年間で数千、数万件のメールを処理することも珍しくないでしょう。 そんな毎日のメール処理を効率化する7 …

ブックのシート名を一括で置換するエクセルVBA

ブックのシート名を一括で置換するエクセルVBAをご紹介します。 次のサンプルコードを使うと、 「ファイルを開く」ダイアログを表示。 シート名を一括で置換したいエクセルブックを選択。 エクセルブックに含 …