代码如下: 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取得内容区域的下一行的行号;
|