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

将第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

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。