跳转到最后一个单元格

今天介绍一个使用频率非常高的一个语句，各种代码你经常会看到她的身影。

先从Excel中的表格说起。

如下表格，当单元格在C5时，如果想跳转到最下方，最上方，最左方，最右方。

此时，均可以按一个快捷键。

CTRL+方向键。

比如CTRL+向下，可以跳转到最后一行。

换成VBA的语句如何写？

那就是如下代码，可以理解成光标放在C5单元格，按CTRL+向下方向键.

Private Sub CommandButton1_Click() Range("c5").End(xlDown).SelectEnd Sub

如果使用以下代码，则是跳转到最上方，也就是C1。

Private Sub CommandButton1_Click() Range("c5").End(xlUp).SelectEnd Sub

因为表格通常是A1单元格开始输入数据。

所以常见的写法如下：

Private Sub CommandButton1_Click() Range("a1").End(xlDown).SelectEnd Sub

相当于点击单元格A1,然后按CTRL+向下方向键。

如果中间有空格将会停止在空格单元格中。

使用以下代码将会跳转到A列用过的最后一个单元格，相当于鼠标先放在A列最后一个单元格也就是A1048576,然后按CTRL+向上方向键。

Private Sub CommandButton1_Click() Range("a1048576").End(xlUp).SelectEnd Sub

如果不是跳转到最后一行，仅仅是想获取最后一行行号是多少，可以使用以下代码。

Private Sub CommandButton1_Click() Dim rs as long Rs=Range("a1048576").End(xlUp).rowMsgbox "最后的行号是" & rsEnd Sub

子曰：用之则行，不用则藏。

意思是说，如果你用我的这些建议，就马上行动，知行合一，如果你不用，就赶紧收藏，以绝后患。

赞 (0)

相关推荐