Merge Multiple Excel Worksheets into One Worksheet Through VBA

By Sophia | Last Updated January 03, 2024

Many office men may need to merge multiple Excel Worksheets into a single master worksheet if they want to analyze or count the data quickly and easily. Sometimes they could merge the worksheets manually, but if there are numerous worksheets, merging sheets manually would be time-consuming. Now I would introduce merging multiple Excel Worksheet to One Worksheet through VBA.

Now we suppose that you have three Worksheets contains some information about the students and now you would like to merge them into a Worksheet. Please follow the under steps if you are interested in learning merging multiple Excel Worksheet to one Worksheet through VBA.

Step 1: Press the ALT + F11 keys at same time to open the Microsoft Visual Basic for Applications window.

Step 2: Click Insert>>Module, then paste the under codes into the newly opened module.

Sub Combine()
Dim Sun As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For Sun = 2 To Sheets.Count
Sheets(Sun).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next

End Sub

Attention: If your sheet contains numerous columns of data, just set the Range in the last part of the code as big as possible.

Step 3: Press F5 or click the run icon in the toolbar. Then you would see there is a new sheet called Combined appearing in the Excel sheet line.

Related Articles:

• How to Automatically Delete Emails in Outlook
• How to Deal With Outlook Keeps Asking for Password
• How to Password Protect Email in Outlook 2007-2016
• Password Protect Outlook Email Folder with Bitlocker
• How to Create and Use a Distribution List in Outlook 2010 or 2013