Consolidating worksheets into one

Question

I have a few excel worksheets in the style of

Organization 1

---

Name Occupation

Chris - contracter

Jane - employee

---

Organiz

Answer 1

Kindly use RDBMerge add-in which will combine the data from different worksheet and create a master sheet for you. Please see the below link for more details.

http://duggisjobstechnicalstuff.blogspot.in/2013/03/how-to-merge-all-excel-worksheets-with.html

Download RDBMerge

Answer 2

I don't know if i understand your problem, but this could help:

Sub MergeAll()
Dim r As Long, ws As Worksheet, rAll As Long, wsAll As Worksheet
Dim i As Long
Worksheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.name = "All"
Set wsAll = ActiveSheet
rAll = 2
For Each ws In Worksheets
    If ws.name <> "All" Then
        r = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
        For i = 1 To r
            wsAll.Cells(rAll, 1) = ws.name
            wsAll.Cells(rAll, 2) = ws.Cells(i, 1)
            wsAll.Cells(rAll, 3) = ws.Cells(i, 2)
            rAll = rAll + 1
        Next i
    End If
Next ws
End Sub

I guessed, that there is one Excel file with multiple sheets. Each sheet represents one organization. So the makro will run through each sheets (except Sheet with name "All") and write the data of the sheets to "All". I hope that is what you need.