免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版

代碼如下：

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循環(huán)完成。

Worksheets(i).UsedRange.Copy表示第i個工作表的使用區(qū)域復(fù)制；

通過 ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row + 1取得內(nèi)容區(qū)域的下一行的行號；