Paste all sheets into one master sheet

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
 
F

Francis

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
 
D

Don Guillett

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top