How to combine multiple workbooks into one workbook

,

This post explains that how to combine multiple workbooks into only one workbook in excel. How to merge several workbooks into one workbook.

If you want to combine multiple workbooks into one workbook, you need to open all workbooks, then determine the workbooks to merge and the destination of workbook. Selected all worksheets in each merged workbooks and right click on selected worksheets, click “Move or Copy” command to move all selected worksheets to one workbook.

Combine multiple workbooks into one workbook

You can refer to the following steps to merge multiple workbooks into one workbook:

1# open all workbooks contain all merged workbooks and the destination of workbook.

combine multiple workbooks1

2# you need to click “CTRL” +”SHIFT” keys to select all of worksheets, then right-click on the selected worksheets. Then click “Move or Copy…” command from pop-up menu list.

combine multiple workbooks2

3# the “Move or Copy” window will appear.

combine multiple workbooks3

4# select the destination of workbook as workbook1.xlsx from the drop down list of “Move selected sheets to book:

combine multiple workbooks4

5# click “OK” button, you will see that all of worksheets from the workbook2.xlsx are moved into the workbook1.xlsx.

combine multiple workbooks5

6# you can repeat the above steps on other merged workbooks.

combine multiple workbooks6

Combine multiple workbooks into one workbook with VBA code

You can also create an excel macro to merge multiple workbooks into only one workbook in Excel VBA, just refer to the below steps:

1# open one workbook that you want to merge other workbooks into.

combine multiple workbooks1-7

2# click on “Visual Basic” command under DEVELOPER Tab.

Get the position of the nth using excel vba1

3# then the “Visual Basic Editor” window will appear.

4# click “Insert” ->”Module” to create a new module

convert column number to letter3

5# paste the below VBA code into the code window. Then clicking “Save” button.

Sub combineWorkbooks()
Path = "D:\excel\"
Filename = Dir(Path & "*.xls")
Do While Filename <> ""
    Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
    For Each Sheet In ActiveWorkbook.Sheets
        Sheet.Copy After:=ThisWorkbook.Sheets(1)
        Next Sheet
    Workbooks(Filename).Close
    Filename = Dir()
Loop
End Sub

combine multiple workbooks7

6# back to the current worksheet, then run the above excel macro, you will see that all of the worksheets have been moved into the worksheet1.xlsx.

combine multiple workbooks6


Related Posts

Leave a Reply