本实施例说明在Excel VBA Range对象的终结特性。我们将使用这个属性来从活动单元格中选择范围列中的最后一项。

现状：

在A列的一些销售数字假定你将在一段时间内增加更多的销售数字。

From Active Cell to Last Entry in Excel VBA

将工作表上的一个命令按钮并添加以下代码行：

1.要选择一列中的最后一项，只需添加以下代码行：

Range("A5").End(xlDown).Select

注：代替范围（“A5”），你也可以使用范围（“A1”），范围（“A2”）等，这行代码是等同于按下END +向下箭头。

结果当您单击工作表上的命令按钮：

Last Entry

2.要选择从细胞A5至该列中的最后一个条目中，添加以下代码行：

Range(Range("A5"), Range("A5").End(xlDown)).Select

结果当您单击工作表上的命令按钮：

From Cell A5 to Last Entry 3. To select the range from the Active Cell to the last entry in the column, simply replace Range(“A5”) with ActiveCell.

Range(ActiveCell, ActiveCell.End(xlDown)).Select

结果当您选择单元格A2并单击工作表上的命令按钮：

From Active Cell to Last Entry Result

注意：您可以使用常量xlUp，xlToRight和xlToLeft到移动在其它方向。这样，您就可以选择从活动单元格范围内的一排中的最后一项。