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

前面我们讲过如何汇总合并文件夹内多个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取得内容区域的下一行的行号；

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