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