Using Excel Macros to Combine Multiple Sheets

Using Excel macros to combine multiple sheets is one of the ways to greatly enhance productivity by automating and speeding up the process, especially where the number of worksheets are many. If you have not gone through the various approaches, follow these links:

Macros are not the easiest to code but on the other hand can offer loads of time savings as they help you to automate mundane tasks.

[ctt template=”3″ link=”DGTdZ” via=”no” ]Using Excel macros can condense a 2 days’ work into a 1-hour task #ReportAutomationInExcel[/ctt]

This example will focus on a school scenario.

We have data for various streams (4R, 4G, 4Y) of the fourth grade students in a fictitious school. The teacher in charge of the fourth grade receives the scores of the students from the 3 streams in Excel worksheets. He would want to combine these scores into a single worksheet, appending each list below the other.

This will help him to rank and grade all the students instead of having that information for each class separately.

The structure of the source worksheets is as shown below.

Using Excel Macros to Combine Multiple sheets

The macro needed should achieve the following:

  • Copy the range B4:Q5 once and paste the same in cells B4:Q5 in the combined worksheet.
  • Select the range of data from the first student to the last in each of the worksheet and paste into the combined worksheet as values
  • For subsequent worksheets, the macro should paste the data in the row just below where the first data reached
  • Against each of the data sets pasted, the macro should indicate in an adjacent column which stream/class the data belongs

Step #1: Open the Visual Basic Editor

The macro will be coded in the Visual Basic Editor of Excel. Press ALT+F11 to open the VBE.

On the VBE window, right click on the left pane >>Insert >>Module

Combine Multiple Sheets in Excel

Step #2: Type the Macro Code

Upon choosing Module, a window will open on the right side of the screen where you will paste the following code:

Sub CombineWorksheets()

    Dim DestinationSht As Worksheet 'This is the master worksheet where others will be combined
    Dim sht As Worksheet 'Object for handling worksheets in loop
    Dim LastDestRow As Long
    Dim SourceLastRow As Long 'this identifies last occupied row in the input worksheets
    Dim SourceLastColWithData As Long 'This is standard for this example
    Dim RangeToCopy As Range
    Dim ClassSize As Long 'Defines how many students are in a class
    
    
    
    'We don't want our program to slow down, thus we put off screen updating
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
    
    Set DestinationSht = ThisWorkbook.Worksheets("Combined")
    With DestinationSht
        'Get column headers from first worksheet
        ThisWorkbook.Worksheets("4R").Range("B4:Q5").Copy _
        Destination:=DestinationSht.Range("B4:Q5")
        
        'We define the first row where data will be pasted in the destination worksheet
        LastDestRow = DestinationSht.Cells(DestinationSht.Rows.Count, "B").End(xlUp).Row
    End With
           
        'loop through all the worksheets
        For Each sht In ThisWorkbook.Worksheets
        
            If Left(sht.Name, 1) = 4 Then 'Our source worksheets start with a 4. We wish to skip other worksheets
            
                'Identify the last occupied row. We use column B that has the student names
                SourceLastRow = sht.Cells(sht.Rows.Count, "B").End(xlUp).Row 'MsgBox SourceLastRow //You can use this line to check whether the rows returned are correct
                
                SourceLastColWithData = 17 'In all the worksheets, column Q (= #17) is the last column with data
                
                    With sht
                        Set RangeToCopy = .Range(.Cells(6, 2), .Cells(SourceLastRow, SourceLastColWithData))
                        RangeToCopy.Copy _
                        Destination:=DestinationSht.Range("B" & LastDestRow + 1)
                        
                            DestinationSht.Range("A5").Value = "Class" 'Column heading to identify the data sets once pasted
                            
                            DestinationSht.Range("A" & LastDestRow + 1).Value = sht.Name
                            'Get the last used row in the adjacent column B in the destination sheet, and fill the data accordingly in column A
                            DestinationSht.Range("A" & LastDestRow + 1).AutoFill Destination:=Range("A" & LastDestRow + 1 & ":A" & Range("B" & Rows.Count).End(xlUp).Row)
                    End With
            End If
            LastDestRow = DestinationSht.Cells(DestinationSht.Rows.Count, "B").End(xlUp).Row
        Next sht
    
    ' Call AutoFit on the destination sheet so that all data is readable.
    DestinationSht.Columns.AutoFit
    
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With

End Sub


 

Step #3: Assign the Macro to a Button

Having tested the code and ensured it is working properly, we will then insert a shape in the worksheet labeled COMBINED and upon right clicking on the shape, we choose “Assign macro…” from the shortcut menu.

Also, add some text to the shape for guidance.

Final Thoughts…

With Excel macros, the choices are limitless.The example discussed here is one of the tens of ways to code the same problem!

If you have routine tasks that you would want to save time on, I encourage you to invest some hours every day to learn Visual Basic for Application (VBA) in Excel.

Macros have the potential to save you 4 days of work every month and reduce that to 1 hour or less!

Download the file used to interrogate the code more.

Tell a friend…

I believe this example is a time saver for you. Do you have colleagues who may be suffering from a similar challenge, share with them using any medium below.

0

Related Posts

Share your thoughts...

%d bloggers like this: