Stacking Data/Combining Sheets

Prometheus_au

New Member
Joined
Jan 26, 2005
Messages
12
G'day all,

New to all this so go easy on me!
I have an Excel Workbook with 50 sheets. I'd like to "stack" (I think thats the right term) data from each sheet into one. Luckily the data is always in the same place on each sheet (B6:F30).

Is there a way to achieve this?

Thanks all....
 

Excel Facts

Remove leading & trailing spaces
Save as CSV to remove all leading and trailing spaces. It is faster than using TRIM().

parry

MrExcel MVP
Joined
Aug 20, 2002
Messages
3,355
Presuming your wanting to copy to a new sheet pasting into cell A1 downwards then this is hopefully what you want.

Code:
Sub CopyData()
Dim NewSh As Worksheet, Sh As Worksheet, NxtRow As Long

'Create a new sheet to store the combined details
Set NewSh = ThisWorkbook.Sheets.Add
NewSh.Name = "CombinedData_" & Format(Date, "DDMMYYYY")

For Each Sh In ThisWorkbook.Sheets
If Sh.Name <> NewSh.Name Then
    If NxtRow < 1 Then
        NxtRow = 1
    Else
        NxtRow = NewSh.Range("A65536").End(xlUp).Row + 1
    End If
    Sh.Range("B6:F30").Copy NewSh.Cells(NxtRow, 1)
End If
Next Sh

End Sub
 

Forum statistics

Threads
1,147,844
Messages
5,743,510
Members
423,800
Latest member
IuneKeiki

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top