Paste all sheets into one master sheet

  • Thread starter Thread starter Its me
  • Start date Start date
I

Its me

Hi
I have 80 excel datasheets with identical headers in each
I want to bring them all into one sheet is this possible without cutting and
pasting each?
Many thanks in advance
(My first post)
Stephen
 
try
Consolidate under Data in the menu bar
--
Hope this is helpful

Pls click the Yes button below if this post provide answer you have asked

Thank You

cheers, francis

Am not a greek but an ordinary user trying to assist another
 
Place this macro in a regular module and execute from the destination sheet
1.

Sub bringinallsheetstoone()
For i = 2 To Sheets.Count
With Sheets(i)
dlr = Cells(Rows.Count, "a").End(xlUp).Row + 1
slr = .Cells.Find(What:="*", After:=[A1], _
SearchDirection:=xlPrevious).Row
.Rows(2).Resize(slr).Copy Rows(dlr)
End With
Next i
End Sub
 
Back
Top