excel图表快捷移动单元格——End属性-英雄云拓展知识分享

我是一个急性子，干甚么事都希望马上能够完成，也希望马上能够知道事情的结果，去甚么地方也希望马上能够到达目的地。我不知道大家是否是都跟我一样，但我知道Excel中有满足我们这些急性子人的快捷功能。

下图所示为带有一组数据的工作表，活动单元格（也称为当前单元格）为单元格A1。按下组合键，当前单元格会快捷移动到单元格A10；接着按下组合键，当前单元格会快捷移动到单元格C10；再按下组合箭，当前单元格会快捷移动到单元格C1；再按下组合箭，当前单元格又回到单元格A1。

现在，在Excel中打开宏录制器（即单击“开发工具”——“录制宏”），从当前单元格A1开始，按上面所述的方法，使用 Ctrl+方向箭组合箭快捷移动单元格，即从A1移至A10再移至C10再移至C1最后回到A1，最后关闭宏录制器（即单击“开发工具”——“停止录制“）。

宏录制器录制的代码以下：

Sub 宏1()

‘

‘ 宏1 宏

‘

‘

Selection.End(xlDown).Select

Selection.End(xlToRight).Select

Selection.End(xlUp).Select

Selection.End(xlToLeft).Select

End Sub

将录制的宏代码与对应的操作解析以下所示：

视察宏录制的代码和相应的解析，可以看出Selection代表当前活动单元格，单元格对象的End属性使单元格快捷移动到同一列或行的末尾或开头，其括号内的参数值唆使单元格移动的方向。

End属性的语法表达式为：

Range对象.End(Direction)

返回一个Range对象，代表连续区域内的一个单元格，该单元格在该区域的末尾或开头。

说明：

Range对象代表区域内的任一单元格。也就是说，不一定是上文所演示的第一个单元格，可以是其它任何单元格。

参数Direction的取值及说明以下：

以本文开头所示的工作表为例，说明End属性的使用。

下面的语句：

Range(“B5”).End(xlUp).Select

选择单元格B1。

下面的语句：

Range(“B5”).End(xlDown).Select

选择单元格B10。

下面的语句：

Range(“B5”).End(xlToLeft).Select

选择单元格A5。

下面的语句：

Range(“B5”).End(xlToRight).Select

选择单元格C5。

注意：上面的示例均为在同一行或列中连续的单元格区域中移动，也就是说区域中没有空单元格。如果列或行中存在空单元格，那末在向下或向右移动时，End属性将单元格移动到同一列或行中空单元格之前的那个单元格；在向上或向左移动时，End属性将单元格移动到同一列或行中空单元格以后的那个单元格。（我们可以在工作表中输入一些数据，并成心在数据之间留有空单元格，然后使用Ctrl+箭头方向键实验，体会Excel是怎样快捷移动单元格的）

一般，我们使用End属性查找连续单元格区域的最后一个单元格所在的行或列。

依然以本文开头所示的工作表为例，下面的语句：

Range(“A1”).End(xlDown).Select

选择单元格A10。即列A中有数据的单元格区域的最后一个单元格。

继续！下面的语句：

Range(“A10”).End(xlDown).Select

选择单元格A1048576（如果是Excel 2003则为A65536），即列A中的最后一个单元格。换句话说，以有数据的单元格区域的最后一个单元格为出发点，结合参数值xlDown（向下移）使用End属性，活动单元格将移动到工作表中该列或该行所在的最后一个单元格。呵呵，有点意思了！

再试试下面的语句（Excel 2007及以上版本）：

Range(“A1048576”).End(xlUp).Select

或是（Excel 2003及以下版本）：

Range(“A65536”).End(xlUp).Select

选择单元格A10。也就是列A中有数据的单元格区域的最后一个单元格。

我们来小结一下。

类似于本文开头所示的工作表，如果列A中的单元格区域放置着连续的数据，即表中的单元格区域A1:A10，我们要找到列A中寄存数据的最后一个单元格，有两类方法。第一种是从单元格A1开始使用End属性向下移至A10，即语句Range(“A1”).End(xlDown).Select。第2种是从工作表列A中的最后一个单元格开始向上移至A10，即语句Range(“A1048576”).End(xlUp).Select。

但是，如果在A1:A10中某个单元格为空（假定是单元格A5），那末语句Range(“A1”).End(xlDown).Select就不会移至单元格A10，而是移至单元格A4。所以，第一种方法不保险，仅在能确保单元格区域连续的情形下使用。通常，我们偏向于使用第2种方法，即从工作表中列中的最后一个单元格向上移，确保能移至该列中最后一个有数据的单元格上。

看看使用第2种方法选取单元格区域最后一个单元格的语句，对Excel 2007之前或以后的版本，由于行数不同，使用的单元格也不一样：Range(“A1048576”)或Range(“A65536”)。

在本系列前面的文章中曾介绍，Application对象有一个Rows属性，可以返回工作表所在的行。该属性也能够返回工作表中的总行数，语句以下：

Rows.Count

如果是Excel 2003，则返回值65536；如果是Excel 2007及以后的版本，则返回值1048576。

因此，这种情况下，工作表列A中处于最底端（即最后）一个单元格可表示为：

Range(“A” & Rows.Count)

从而上述第2种方法的代码也能够写为：

Range(“A” &Rows.Count).End(xlUp).Select

一样是选择单元格A10（即列A中有数据的单元格区域的最后一个单元格）。并且，该代码更具有通用性，这样就不怕Excel的版本问题了。

注意：上面是以列为例来讲明如何选取某列中的最后一个有数据的单元格，对行来讲，如何选取某一行中最后一个有数据的单元格，与上面的方法相同，只是需要修改相干参数。