Sub combine()
For i = 1 To Sheets.Count - 1
aa = Sheets(Sheets.Count).Range("a1").CurrentRegion.Rows.Count + 1
bb = Sheets(i).Range("a1").CurrentRegion.Rows.Count + 1
Sheets(i).Range("a4:l" & bb).Copy Destination:=Sheets(Sheets.Count).Range("a" & aa & ":l" & (bb + aa))
aa = aa + aa
Next
End Sub
这是在同一工作表内的,改一下就可以跨工作簿了。