－ちょっと使えるネタを紹介－
Excel VBAを使って、複数ブックを1つのブックにまとめるには、「複数シート」にまとめる方法と「1シート」にまとめる方法があります。フォルダ内のすべてのブックをまとめたいという場合には、「Dir」が使えます。複数ブックをまとめる方法について、マスターしていきましょう。
この記事では、複数ブックを1つのブックにまとめる方法について、ご紹介します。
複数ブックを1つのブックへまとめる方法について、次の2つがあります。
フォルダ内のすべてのブックをまとめたい、というような場合には、「Dir」が使えます。
複数ブックをまとめる方法について、マスターしていきましょう。
では、複数ブックを1つのブックにまとめる方法について、解説していきます。
この記事を読むメリット
目次から見たい項目へ移動すると便利ですよ。
目次
複数ブックの値を、複数シートでまとめるというのをやってみます。
やりたい内容は、複数ブックを複数シートでまとめたい、ということになります。
あらかじめ複数ブックを用意しておきます。
次のように、複数ブックを複数シートでまとめてたいです。
取得する複数のブックは、次のようになります。
1つ目のExcelです。
2つ目のExcelです。
3つ目のExcelです。
4つ目のExcelです。
5つ目のExcelです。
という感じです。
手順としては、下記の内容を繰り返していきます。
複数ブックを、複数シートにまとめるVBAコードです。
Sub TEST1()
For i = 1 To 5
'ブックを開く
Workbooks.Open ThisWorkbook.Path & "\TEST\TEST" & i & ".xlsx"
With ActiveWorkbook
'シートをコピーして取得
.Worksheets("Sheet1").Copy after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
'シート名をブック名に変更
ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count).Name = .Name
.Close False 'ブックを閉じる
End With
Next
End Sub
では、VBAコードを実行してみます。
複数ブックを、複数シートにまとめることができます。
他のシートもみてみます。
2つ目のシートです。
3つ目のシートです。
4つ目のシートです。
5つ目のシートです。
こんな感じで、複数ブックを複数シートにまとめることができます。
では次は、フォルダ内の「すべて」の複数ブックを複数シートでまとめる、というのをやってみます。
やりたい内容は、フォルダ内のすべての複数ブックを、複数シートでまとめたい、ということになります。
先ほどと同じように、複数シートでまとめます。
取得する複数ブックについて、みてみます。
1つ目のExcelです。
2つ目のExcelです。
3つ目のExcelです。
4つ目のExcelです。
5つ目のExcelです。
という感じです。
手順としては、次の内容を繰り返していきます。
フォルダ内のすべてのブックを、複数シートにまとめるVBAコードになります。
Sub TEST2() Dim A 'フォルダ内のブック名を取得 A = Dir(ThisWorkbook.Path & "\TEST\*") Do While A <> "" 'ブックを開く Workbooks.Open ThisWorkbook.Path & "\TEST\" & A With ActiveWorkbook 'シートをコピーして取得 .Worksheets("Sheet1").Copy after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count) 'シート名をブック名に変更 ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count).Name = .Name .Close False 'ブックを閉じる End With A = Dir() '次のブック名を取得 Loop End Sub
では、実行してみます。
複数ブックを、複数シートにまとめることができます。
他のシートもみてみます。
2つ目のシートです。
3つ目のシートです。
4つ目のシートです。
5つ目のシートです。
こんな感じで、フォルダ内のすべてのブックを、1つのブックの複数シートにまとめることができます。
次は、複数ブックの値を「1シート」にまとめる、というのをやってみます。
やりたい内容は、複数ブックを1シートにまとめたい、ということになります。
次は、「1シート」にまとめてみます。
1つのブックの1シートにまとめる、という感じです。
取得する複数ブックは、次のようになります。
1つ目のExcelです。
2つ目のExcelです。
3つ目のExcelです。
4つ目のExcelです。
5つ目のExcelです。
という感じです。
手順としては、次の内容を繰り返していくことでできます。
複数ブックを、1シートにまとめるVBAコードになります。
Sub TEST3()
Dim A, B
Set B = ThisWorkbook.Worksheets("Sheet1")
For i = 1 To 5
'ブックを開く
Workbooks.Open ThisWorkbook.Path & "\TEST\TEST" & i & ".xlsx"
'データ部分を取得
With ActiveWorkbook.Worksheets("Sheet1").Range("A1").CurrentRegion
A = .Rows("2:" & .Rows.Count)
End With
'データを入力
B.Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Resize(UBound(A, 1), 2) = A
'ブック名を入力
B.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Resize(UBound(A, 1)) = ActiveWorkbook.Name
ActiveWorkbook.Close False 'ブックを閉じる
Next
End Sub
実行すると、複数ブックを1シートにまとめることができます。
複数ブックを1シートにまとめることができました。
次は、フォルダ内の「すべて」の複数ブックの値を、「1シート」にまとめる、というのをやってみます。
やりたい内容は、すべての複数ブックを1シートにまとめたい、ということになります。
「1シート」にまとめます。
では、取得する複数ブックをみてみます。
1つ目のExcelです。
2つ目のExcelです。
3つ目のExcelです。
4つ目のExcelです。
5つ目のExcelです。
という感じです。
手順としては、次の内容を繰り返すとできます。
フォルダ内のすべてのブックを、1つのブックの1シートにまとめるVBAコードになります。
Sub TEST4()
Dim A, B, C
Set B = ThisWorkbook.Worksheets("Sheet1")
'フォルダ内のブック名を取得
C = Dir(ThisWorkbook.Path & "\TEST\*")
Do While C <> ""
'ブックを開く
Workbooks.Open ThisWorkbook.Path & "\TEST\" & C
'データ部分を取得
With ActiveWorkbook.Worksheets("Sheet1").Range("A1").CurrentRegion
A = .Rows("2:" & .Rows.Count)
End With
'データを入力
B.Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).Resize(UBound(A, 1), 2) = A
'ブック名を入力
B.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Resize(UBound(A, 1)) = ActiveWorkbook.Name
ActiveWorkbook.Close False 'ブックを閉じる
C = Dir() '次のブック名を取得
Loop
End Sub
実行すると、すべての複数ブックを1シートにまとめることができます。
すべての複数ブックを1シートにまとめることができました。
この記事では、複数ブックを1つのブックにまとめる方法について、ご紹介しました。
複数ブックを1つのブックへまとめる方法について、次の2つがあります。
フォルダ内のすべてのブックをまとめたい、というような場合には、「Dir」が使えます。
複数ブックをまとめる方法について、マスターしていきましょう。
参考になればと思います。最後までご覧くださいまして、ありがとうございました。
関連する記事から探す
カテゴリから見たい項目を探すと便利ですよ。
↓キーワードを入力する