前面我们讲过如何汇总合并文件夹内多个Excel文件的内容。

这里讲点简单的合并同一工作簿的所有工作表。

动态图：

详细源码：

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取得内容区域的下一行的行号；

参考自：小智雅汇（头条网）