Próbáld ki ezt a makrót: (Az egyik excel fájlod "ThisWorkbook" makrólapjára kellene másolnod az alt+"F11" megnyomása után - sima copy paste-el. Ha megvan a másolás, felül a menűsorban van egy kis zöld nyíl, arra kellene rákattintani a makró futtatásához. A program csak akkor működik jó, ha minden munkafüzetlap első sora tartalmaz adatokat, és a munkafüzetlapokon nincs sor-, vagy oszlopkihagyás az adatok között.)

 

Sub msn()

b = ActiveWorkbook.Name

Workbooks.Add

n = ActiveWorkbook.Name

Workbooks(b).Activate

k = 1

For i = Workbooks(b).Sheets(1).Index To Workbooks(b).Sheets.Count

Set s = Workbooks(b).Sheets(i).Cells(1, "a").End(xlDown)

s = s.Row

Set o = Workbooks(b).Sheets(i).Cells(1, "a").End(xlToRight)

o = o.Column
Range(Workbooks(b).Sheets(i).Cells(1, 1), Workbooks(b).Sheets(i).Cells(s, o)).Copy

Workbooks(n).Sheets(1).Cells(k, 1).PasteSpecial

Set k = Workbooks(n).Sheets(1).Cells(1, 1).End(xlDown)

k = k.Row

Next

End Sub