Comments on: Merge Excel worksheets?

Question: Merge Excel worksheets?

ewiar — Mon, 21 Jul 2008 08:23:34 -0800

What's the easiest way to merge data from multiple Excel worksheets into one big worksheet

I have a workbook with 223 worksheets. Each worksheet contains information about a given geographic area. The information for any given variable is in the same cell each time. I would like to convert this into one big worksheet.
---------------
Example of what I have:

Worksheet 1 [Area 1]:
Blue: 3
Black: 5
Green: 4

Worksheet 2 [Area 2]:
Blue: 5
Black: 2
Green: 5
------------------
Example of what I want

ONE BIG WORKSHEET
Area, Blue, Black, Green
1, 3, 5, 4
2, 5, 2, 5
--------------------------

If, for example, the value for 'Blue' will always be in cell B3, then, essentially I want a macro that works like this:

For i < 224
BIGSHEETBi=SHEETi!B!3

By: inigo2

inigo2 — Mon, 21 Jul 2008 08:40:26 -0800

You can pretty much do exactly what you typed there. Note -- I haven't tested this but I think it should work. (Hopefully it posts okay, might be some extra spaces.)



Sub CombineData()

  For i = 1 To Sheets.Count

    Worksheets("BigSheet").Range("B" & i).Value = Worksheets(i).Range("B" & i).Value

  Next

End Sub

By: ewiar

ewiar — Mon, 21 Jul 2008 13:08:53 -0800

For anyone with the same problem, I also hacked together the following far less elegant solution.

Three columns: A, B, C
In A: 1 through n (A1: 1, A2: "=A1+1", fill down)
In B: " '=Sheet "; fill down
In C: ![Cell coordinates]; fill down

Concatenate the three in a fourth column: "=concatenate(B1, A1, C1)"; fill down

Cut and paste the column with the concatenated formulae (the first will look like "=Sheet1![Cell Coordinates]") into Notepad. Copy and paste from Notepad back into Excel into the desired column.