WISDOMBYDATA
  • BLOG
    • Blog Guide
    • Blog History
  • EXCEL
    • Functions & Formulas
    • VBA & Macros
    • VLOOKUP
    • Pivot Tables
    • Conditional Formatting
    • Tricks & Shortcuts
  • BI
    • SAP BOBJ/BW
    • Tableau
  • SQL
  • ABOUT
    • About WBD
    • About Me

Combine data from multiple worksheets into master worksheet

9/30/2018

1 Comment

 

In this blog post I will demonstrate how to combine data sets from multiple worksheets (of the same workbook) into a separate worksheet of that workbook. In other words, the goal is to combine the data set up to the point where a blank row is reached. We also want to exclude repeating headers.
​
Consider the data set below located in a tab named ST1 .
Picture
​The second tab of the workbook (i.e. Tab ST2) contains a data set with the exact same fields but different valuses.
Picture
​Note that in both tabs, the data begins from the fifth row and on that basis I have created the following code to combine the two tabs (i.e. ST1 and ST2) into a third tab named “Main”. 

​Sub Combine()
Dim S as Worksheet
For Each S In ActiveWorkbook.worksheets
If S.Name <> “Main” and S.Range (“A5”).Value <> “” Then
  S.Select
  LastRow=Range(“A10000”).End(xlUp).Row
  Range(“A5”, Cells(LastRow, “E”)).Copy
  Sheets(“Main”).Select
  Range(“A10000”).End(xlUp).Offset(1,0).Select
  ActiveSheet.Paste
 
Else
End If
Next S
 
End Sub
​Insert the code above in the “Module” and “This Workbook” sections in “Developer”>”Visual Basic” section of the ribbon
Picture
​Here is the output after the code is executed:
Picture
Important notes:

  • In order for this code to work, the name of the tab data is combined needs to be “Main”. If the name of the tab is changed, the new name needs to be inputted in lines 4 and 8 of the code.

  • Row 5 has been indicated as the first row where data is to be extracted from. This reference needs to be changed if the data  (excluding the header) starts from a different point. 

1 Comment
Devin link
11/25/2023 11:12:56 pm

Thank yyou for being you

Reply



Leave a Reply.

    Categories

    All
    BI
    EXCEL
    MISC
    SQL

    Archives

    June 2020
    May 2020
    April 2020
    March 2020
    February 2020
    December 2019
    November 2019
    October 2019
    September 2019
    August 2019
    July 2019
    June 2019
    May 2019
    April 2019
    March 2019
    February 2019
    January 2019
    December 2018
    November 2018
    October 2018
    September 2018
    August 2018
    July 2018
    June 2018
    May 2018
    April 2018
    March 2018
    September 2017
    August 2017
    July 2017
    June 2017
    May 2017
    April 2017
    March 2017
    February 2017
    January 2017
    December 2016
    November 2016
    October 2016
    September 2016
    August 2016
    July 2016
    June 2016
    May 2016
    April 2016
    March 2016
    February 2016
    May 2015
    April 2015
    March 2015
    February 2015
    January 2015
    December 2014
    November 2014
    October 2014
    September 2014
    August 2014
    April 2014
    March 2014
    February 2014
    January 2014
    December 2013
    November 2013

Powered by Create your own unique website with customizable templates.
  • BLOG
    • Blog Guide
    • Blog History
  • EXCEL
    • Functions & Formulas
    • VBA & Macros
    • VLOOKUP
    • Pivot Tables
    • Conditional Formatting
    • Tricks & Shortcuts
  • BI
    • SAP BOBJ/BW
    • Tableau
  • SQL
  • ABOUT
    • About WBD
    • About Me