代碼如下：

Sub copysheets()

Dim i, j As Integer

Sheets.Add

For i = 1 To Sheets.Count

Worksheets(i).UsedRange.Copy

j = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row + 1

ActiveSheet.Paste Sheets(ActiveSheet.Name).Range('a' & j)

Next

End Sub

代碼分析：
n個(gè)工作表通過(guò)一個(gè)n次的for循環(huán)完成。

Worksheets(i).UsedRange.Copy表示第i個(gè)工作表的使用區(qū)域復(fù)制；

通過(guò) ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row + 1取得內(nèi)容區(qū)域的下一行的行號(hào)；