Excel VBA编程 复制动态区域

Excel VBA编程复制动态区域

在很多情况下，要复制单元格区域时，却不知道该单元格区域的确切行数和列数。由于这个不确定的因素，就会给单元格区域的复制过程造成困难。

为了解决这一问题，可以使用Range对象的CurrentRegion属性，该属性用于返回由空白行和空白列所包围的单元格区域。其语法格式如下：

格式：表达式.CurrentRegion

该属性对于许多自动展开选择以包括整个当前区域的操作很有用，但不能用于被保护的工作表。

例如，有一个工作表用于跟踪周销售额和新客户，其中单元格区域由几行组成，而行数每周都会发生变化。因为在任意时刻不能确切地知道单元格区域的地址，所以要编写过程来复制单元格区域，如图14-4所示。

图14-4 销售跟踪表

可以使用下面的过程，将工作表Sheet1中的单元格区域复制到Sheet2中，作为副本使用。Sub CRcopy()

Dim r1 As Range

Worksheets("sheet1").Activate '激活工作表

'选择有数据的单元格区域

ActiveCell.CurrentRegion.Select

Set r1 = Selection '将选择的单元格区域赋给r1

r1.copy Sheet2.Range("A1") '复制到Sheet2中

End Sub