Skip to main content

How To Combine All Worksheets Into One Worksheet In Excel || Combine Multiple Sheets into One Sheet


In this tutorial, let us learn how to combine multiple sheets into a single workbook using a simple VBA code.

This code assumes that all the worksheets have the same column headings and in the same order.
This code will copy all the rows into one worksheet called Master.

Steps: 1. Copy the code as mentioned

Sub CopyFromWorksheets() Dim wrk As Workbook 'Workbook object - Always good to work with object variables Dim sht As Worksheet 'Object for handling worksheets in loop Dim trg As Worksheet 'Master Worksheet Dim rng As Range 'Range object Dim colCount As Integer 'Column count in tables in the worksheets Set wrk = ActiveWorkbook 'Working in active workbook For Each sht In wrk.Worksheets If sht.Name = "Master" Then MsgBox "There is a worksheet called as 'Master'." & vbCrLf & _ "Please remove or rename this worksheet since 'Master' would be" & _ "the name of the result worksheet of this process.", vbOKOnly + vbExclamation, "Error" Exit Sub End If Next sht 'We don't want screen updating Application.ScreenUpdating = False 'Add new worksheet as the last worksheet Set trg = wrk.Worksheets.Add(After:=wrk.Worksheets(wrk.Worksheets.Count)) 'Rename the new worksheet trg.Name = "Master" 'Get column headers from the first worksheet 'Column count first Set sht = wrk.Worksheets(1) colCount = sht.Cells(1, 255).End(xlToLeft).Column 'Now retrieve headers, no copy&paste needed With trg.Cells(1, 1).Resize(1, colCount) .Value = sht.Cells(1, 1).Resize(1, colCount).Value 'Set font as bold .Font.Bold = True End With 'We can start loop For Each sht In wrk.Worksheets 'If worksheet in loop is the last one, stop execution (it is Master worksheet) If sht.Index = wrk.Worksheets.Count Then Exit For End If 'Data range in worksheet - starts from second row as first rows are the header rows in all worksheets Set rng = sht.Range(sht.Cells(2, 1), sht.Cells(65536, 1).End(xlUp).Resize(, colCount)) 'Put data into the Master worksheet trg.Cells(65536, 1).End(xlUp).Offset(1).Resize(rng.Rows.Count, rng.Columns.Count).Value = rng.Value Next sht 'Fit the columns in Master worksheet trg.Columns.AutoFit 'Screen updating should be activated Application.ScreenUpdating = True  End Sub

2. Open the workbook that contains worksheets you want to combine.

3. Press Alt+F11 or right click on any sheet tab and select view code, to open the Visual Basic Editor (VBE).

4. From the menu, choose Insert-Module and then paste the code into the code window at the right side.

5. Save the file and close the Visual Basic Editor.

6. Now, go back to the Excel workbook and go to view tab, under macors, select view macros and runt the CopyFromWorksheets macro.

7. You will observe that a new sheet called Master has been created which has collated all the data from the three sheets.

So friends, in this way one can combine or collate data from multiple worksheets/ tabs into a single worksheet.

For Personalized detail learning, write to dptutorials15@gmail.com If you found this video valuable, give it a like. If you know someone who needs to see it, share it. Leave a comment below with your thoughts. Add it to a playlist if you want to watch it later.

***************************************************************
Read my full article on this: http://ift.tt/2kB14dh
***************************************************************
Subscribe for more Awesome Tutorials: goo.gl/4T8ePc
***************************************************************
Support The Channel via shopping: http://ift.tt/2jH38PR
**************************************************************

You Can Connect With Me at
G+ : http://ift.tt/2kAOpa6
Twitter : https://twitter.com/dptutorials15
Facebook : http://ift.tt/2kfRnDi
Blogspot : http://ift.tt/2kB14dh

Comments

Popular posts from this blog

Top 4 Useful Features, Tricks You Can Use In Primavera P6 || Special features To Learn In Primavera

1. How to Increase the size of icons in Primavera P6?  If you find that the menu bar and command icons are of less visibility, there is a way to increase the size of icons in Primavera P6. Let us see how to do this in this tutorial now. Go to the menu bar and under the view tab, select Toolbars and click on customize. Now a window gets opened like this, go to options tab and tick the checkbox "Large Icons". Click on the Close button and you can see that all your icons now increased in size. 2. How to Animate your Menu Bars in Primavera P6? You know that we have got the option to animate menu bars in Primavera P6. There are 4 animation options in Primavera P6, These are None  Random  Unfold Slide  Fade  You can try any of these if you want a new feel. Follow this steps to Animate Menu Bars. Click on View, go to toolbars, select Customize. Now a customize window will pop up. Go to the options tab, at Menu Animations: Check on Drop Down Bu

How To Merge Two Separate Schedules Into One Master Schedule In Primavera

In this tutorial, let us learn how to Merge two separate schedules into One Master schedule in Primavera P6. In this example, I am considering two separate projects which are these two, One is master schedule and one is the subproject. First, let us open the subproject and export this schedule as a .XER file onto Desktop. and now let us start the exact process of merging two separate schedules. 1. As a first step, We need to open the project schedule into which we want to insert the other project as a sub-project. So, let us open the Master schedule here. 2. Go to Import, select XER format, Click Next 3. Select Project and click Next 4. Now select the Subproject .xer file from the Desktop and click Next 5. Under Import action, select the option as “Update Existing Project” and under import to section, select the Master schedule which is already open. Click Next and Finally Click on Finish. 6. Please note and make sure that your WBS and activity IDs should not confl

How to adjust the Legend Space in Microsoft Project

In this Tutorial, let us see how to adjust the space occupied by the Legends in Microsoft Project, enabling for a better professional print of the schedule. Step - 1: Open the Microsoft Project schedule and go to File>>Print Preview>> Step - 2: At the bottom of the print preview, you can view the Legend portion. Sometimes the legend space occupies the major portion of the page, making it unprofessional to print the schedule reports. Step - 3: So, in order to adjust this legend space,you need to go back to the schedule's Gantt chart view and place the cursor at the gantt chart and right click to select the Bar styles option. Step - 4: Here, you can view all the Legend Labels. Now start entering the symbol asterisk * at the beginning of all the labels which you intend not to reflect in the print view as shown here Now here is the Schedule layout with minimum & only required legends Step -5: Now, in addition to the ad