How do I append 20 worksheets in single sheet.

  • Thread starter Thread starter Rahul
  • Start date Start date
R

Rahul

Dear Team,

I am having 20 worksheets which contains my daily reports.
I need to all these worksheets into one singlw worksheet. Means append one
by one.
If there is any function or Macro. I am having Excel 2003/2007.
Kindly help me.

Reagdrs,

Rahul.
 
If all the sheets has same format then you can use this Macro


May be this help this Macro

Sub newsummarysheet()
Sheets.Add
ActiveSheet.Name = "Summary"
For Each ws In ActiveWorkbook.Sheets
dlr = Cells(Rows.Count, "a").End(xlUp).Row + 1
slr = ws.Cells(Rows.Count, "a").End(xlUp).Row
If ws.Name <> "Summary" Then
ws.Rows("1:" & slr).Copy Cells(dlr, 1)
End If
Next ws
End Su
 
Back
Top