将第1张表中已使用的区域复制到第2张工作表中

本文为《别怕，Excel VBA其实很简单（第3版）》随书问题参考答案

如果在活动工作簿的第 1 张工作表中，保存了行、列数不确定的数据，现要将这些数据复制到第 2 张工作表中（目标区域的最左上角单元格为A1），可以用下面的过程：

Sub 复制所有数据()
Worksheets(1).UsedRange.Copy Worksheets(2).Range("A1")
End Sub

如果第2 张工作表中已有数据，要将第1 张表中的数据复制到第2 张工作表的第 一行空行中，可以用下面的过程：

Sub 复制最后一行数据()
Worksheets(1).UsedRange.Rows(Worksheets(1).UsedRange.Rows.Count).Copy Worksheets(2).Range("A1048576").End(xlUp).Offset(1, 0)
End Sub