If you’ve got something to work on with several excel files. More than 150 excel files generated by a web based application have to be merged into one file and then create a summary from it. A simple way to combine or merge multiple excel files, with macros in Excel.
If you’re not familiar with office macros, do not worry you can use it easily by just write a simple xls file merger code on vb editor, change the working folder path and cell starter reference name inside the code to suit your reference, and then click Run Sub. All excel (xls or xlsx) files inside working folder will be merged into current worksheet.
Download the file here: MergeWorkBooks_ExampleFile.xls
For more detail, here’s is a step-by-step intro.
- Gather all xls or xlsx files that you wanted to merge into a folder. Remember that this merger macros will only grab the first worksheet on spreadsheet files. So make sure that all contents is on the first worksheet before continue.
- Close all working excel files so you can focus only on merging files.
- On MS Excel, create new spreadsheet by simply pressing CTRL+N.
- And open Microsoft Visual Basic editor by pressing ALT+F11, you’ll see a blank text editor.
- Now open by doubleclicking ThisWorkBook on the left sheet menu.
- Paste the following macros code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
Sub simpleXlsMerger() Dim bookList As Workbook Dim mergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object Application.ScreenUpdating = False Set mergeObj = CreateObject("Scripting.FileSystemObject") 'change folder path of excel files here Set dirObj = mergeObj.Getfolder("D:changetoexcelfilespathhere") Set filesObj = dirObj.Files For Each everyObj In filesObj Set bookList = Workbooks.Open(everyObj) 'change "A2" with cell reference of start point for every files here 'for example "B3:IV" to merge all files start from columns B and rows 3 'If you're files using more than IV column, change it to the latest column 'Also change "A" column on "A65536" to the same column as start point Range("A2:IV" & Range("A65536").End(xlUp).Row).Copy ThisWorkbook.Worksheets(1).Activate 'Do not change the following column. It's not the same column as above Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Application.CutCopyMode = False bookList.Close Next End Sub
- Change the folder as mentioned on comment on the macros code
- Change also column start reference to suit your need (usually first row used by column header, so i used A2 as start point).
- For example to start merging all files from column “B” row “1”.
- Change “IV” only if you have files using column wider than column “IV”. Basically, it will try to copy values on all available columns. If you notice the latest column on new worksheet is “IV”, it is the default available column on until your columns growth more than that.
Range("B1:IV" & Range("B65536").End(xlUp).Row).Copy
- If everything configured already, press “F5″ or click on play icon to run the code (RunSub). You’ll see working progress on left sheet menu.
- If all done, you can now switch to worksheet to see the result.
If you set a new folder within the code, and then hit “F5″ or press SubRun button, the result will be added into current worksheet bellow the previous data. That’s mean it will not overwritten the last result but as another merge to previous merged data. In conclusion, you can spam change folder path and hit F5 to run the code in order to merge all files on provided folder into current worksheet. If you want to start new merge for multiple xls or xlsx files you have to clear the current worksheet, or create new file for merge. I hope there’s also a way to merge spreadsheet similar to this but for LibreOffice, since i also work on several ods files.
- Consolidate Data from Multiple Worksheets into a Master Worksheet in Excel using VBA
- 5 must-know Excel macros for common tasks
- Understanding Variables, Conditions & Loops in Excel VBA