Excel合并工作簿内全部工作表到新的工作表

前面我们讲过如何汇总合并文件夹内多个Excel文件的内容。这里讲点简单的合并同一工作簿的所有工作表。动态图：

1505379476987880.gif

详细源码：Subcopysheets()
Dimi,jAsInteger
Sheets.Add
Fori=1ToSheets.Count
Worksheets(i).UsedRange.Copy
j=ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row+1
ActiveSheet.PasteSheets(ActiveSheet.Name).Range("a"&j)
Next
EndSub
代码分析：
n个工作表通过一个n次的for循环完成。Worksheets(i).UsedRange.Copy表示第i个工作表的使用区域复制；通过 ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row + 1取得内容区域的下一行的行号；
参考自：小智雅汇（头条网）