[掲載日] (更新日) この記事は約 4 分で読めます

いまさら聞けない!10秒で複数のExcel(Book・シート)を結合して1つにまとめる方法

「さて帰るか・・・上司さんお先です!」
「ちょうどいいや、明日までにこのファイル1つにまとめておいてね」

「え?1000ファイルもありますよ!」

「あ、これも。100個エクセルデータ合併しておいてね」

「え?」
こんなことになっても、大丈夫!

今から、まとめのスペシャリストとして、上司に・同僚に頼られること間違いなし!?

ちょっと待って、いきなりコードとか無理だわ

それなら、動画学習がおすすめです。

いまさら聞けない、ExcelBook・シートをたった数秒でまとめる方法をご紹介。
巻末にExcelダウンロードファイルもあるよ! ※2015年09月18日
Ver1.1 へアップデートしました。結合用のテストファイルを同胞しております。
※2016年04月16日
Excelマクロの結合コードを自分の環境にする を追記しました。

無料スクール講座でWordpress・プログラミング・SEOを一緒に学習しませんか?

あなたに以下のことで 悩んでないだろうか?

  • 「フリーランスになりたいけど稼げるか不安だ」
  • 「クラウドソーシングや営業して稼げるか不安だ」
  • 「スマホはあるけどパソコンが古くて不安だ」
  • 「プログラミングを学習して副業したいけど不安だ」
  • 「副業をはじめたが、いっこうに成果がでない」
  • 「途中でついていけなくならないか不安だ」
  • 「在宅で稼げるようになりたい」

そんなお悩みのあなたにこそ学習して頂きたい内容です!

このメディアを運営しているWordpress・SEO・プログラミング相談のプロが
全て無料で相談と学習できるように
無料スクールのメルマガ講座を開設しました。

いまなら、5大特典プレゼント付きです。

ExcelBook・シート結合の結果

47都道府県のExcelファイルもたった数秒で合体完了。
1つのファイルに合体してまとめる事が出来ました。

100個のExcel結合でも、Excelの1000シートでも簡単に合体・結合出来ます。

ExcelBook・シート結合のコード

コード(Excelマクロ)と言っても簡単です。
3行目のフォルダの場所を変更するだけです。

Sub ExcelbookCombine()
'結合したいファイルがあるフォルダの場所 cドライブなら "C:\test\"
Const Fol As String = "C:\test\"
Dim Fn
Dim NewFile As Workbook
Dim Wb As Workbook
Dim Ws1 As Worksheet
Dim Ws2 As Worksheet

あとはしたのコメント部分にそって自分の環境に修正すればOKです。

'ワークシート1をコピーする場合は Wb.Worksheets(1)
'ワークシート2をコピーする場合は Wb.Worksheets(2)
Set Ws2 = Wb.Worksheets(1)
'Aの1行目からHの8列目までをコピーして結合する
Ws2.Range("A1", Ws2.Cells(Rows.Count, 1).End(xlUp)).Resize(, 8).Copy R
Set R = R.End(xlDown).Offset(1)

ダウンロードファイルを用意しましたので、一々コピペしなくてもすぐ使えます。

Excelマクロの結合コードを自分の環境にする

自分の環境にマクロを修正する方法を記載します。
まずはExcelマクロから以下のコードを探してください。

Ws2.Range("A1", Ws2.Cells(Rows.Count, 1).End(xlUp)).Resize(, 8).Copy R

上記は AからHまでを結合する様になっています。

ExcelマクロをAからZまでを結合する場合

AからHまでの結合をAからZまでに変更します。

Ws2.Range("A1", Ws2.Cells(Rows.Count, 1).End(xlUp)).Resize(, 26).Copy R

「Resize(, 8)」この部分を「Resize(, 26)」この様に変えます。

たったこれだけでAからZまでを結合します。

Aからではなく、DからZまでを結合する場合

Ws2.Range("D1", Ws2.Cells(Rows.Count, 4).End(xlUp)).Resize(, 26).Copy R

「Range(“A1″」この部分を「Range(“D1″」へ変更、
「Ws2.Cells(Rows.Count, 1)」この部分を「Ws2.Cells(Rows.Count, 4)」へ変更して

「Resize(, 8)」この部分を「Resize(, 26)」この様に変えます。
場所さえわかれば簡単ですね。

ExcelBook・シート結合ダウンロード

マクロが苦手なあなたのために、ダウンロードファイルを作りました。
これで今日からあなたもExcelまとめ職人!

ダウンロードする ※2015年09月18日 Ver1.1 へアップデートしました。
※結合用のテストファイルを同胞しております。
※「test」 フォルダを Cドライブ直下へコピー(または移動)して下さい。
同胞のテストファイル3つを1つのシートへ結合します。Aの1行目から8列目までをコピーして結合するようになっておりますのでお試し下さい。

結合するExcelをフォルダにまとめてボタンを押せば完了です。

ExcelBook・シート結合合体まとめ

ダウンロードファイルはCドライブのtestフォルダに中にあるExcelファイルを結合するように設定しております。

パソコン未経験のわたしがたった7日でWord・Excel・パワーポイントを学習できた方法を解説

  • 「来週にはプレゼンで使う資料をつくらないといけない」
  •  「パソコンスキルがなくて転職できるか不安だ」
  •  「メール・Excelどうやったらいいか分からない」
  •  「パソコンのやり方を聞くと息子や娘に怒られる」

などでお悩みならあなたのお役に立てます。

無料スクール講座

無料スクール講座
▼5大特典プレゼント付き!▼
無料スクール講座でWordpress・プログラミング・SEOを一緒に学習しませんか?

あなたに以下のことで 悩んでないだろうか?

「フリーランスになりたいけど稼げるか不安だ」
「クラウドソーシングや営業して稼げるか不安だ」
「スマホはあるけどパソコンが古くて不安だ」
「プログラミングを学習して副業したいけど不安だ」
「副業をはじめたが、いっこうに成果がでない」
「途中でついていけなくならないか不安だ」
「在宅で稼げるようになりたい」
そんなお悩みのあなたにこそ学習して頂きたい内容です!

このメディアを運営しているWordpress・SEO・プログラミング相談のプロが
全て無料で相談と学習できるように
無料スクールのメルマガ講座を開設しました。

いまなら、5大特典プレゼント付きです。