VBA｜合并工作簿内全部工作表

代码如下：

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个工作表通过一个n次的for循环完成。

Worksheets(i).UsedRange.Copy表示第i个工作表的使用区域复制；

通过 ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row + 1取得内容区域的下一行的行号；