Workbook Merge

[itty]

Hi all,..
I have 26 unsaved woorkbook, with same format and diffrent number o
rows. Can I merge all this 26 workbook into one workbook, one sheet.
Thanks in advance,
Itty..

 

[Ron de Bruin]

Hi Itty

Try something like this
Copy the code in a normal module

I use the first worksheet in this example

Sub test()
Dim wb As Workbook
Dim lrow As Long
For Each wb In Application.Workbooks
If wb.Name <> ThisWorkbook.Name Then
lrow = LastRow(ThisWorkbook.Sheets(1))
wb.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets(1).Range("A" & lrow + 1)
End If
Next
End Sub

Function LastRow(sh As Worksheet)
On Error Resume Next
LastRow = sh.Cells.Find(What:="*", _
After:=sh.Range("A1"), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
On Error GoTo 0
End Function