excel中使用vba获得当前表格列最后个非空单元格

1、首先我们打开一个工作样表作为例子。

2、当我们的正在使用的工作表输入了非常多的数据的时候，我们就会难以寻找到表格列的最末尾，一般情况下我们不会见到数据达到几万条的表格，但是如果遇到了，又需要快速定位到末尾去怎么处理呢。

3、这里是做个比方，在该工作表内我们不确定哪个区域还有数据内容，但是我们可以用vba来快速寻找到该列需要定位的最后一个有数据的单元格。这里我们先使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

Option Explicit

Sub dingwei()

Dim rng As Range

Set rng = ActiveSheet.Range("a65536").End(xlUp)

rng.Activate

Set rng = Nothing

End Sub

4、这里我们应用的是end方法。它作用的对象是range（"a65536"）单元格，向上最后一个有数据的单元格。xlup即向上寻找有数据单元格的end参数。

5、因为我们把该单元格赋值给rng区域，所以这里激活它，就是跳转到该单元格。如图所示激活了a72这个单元格。

6、a65536这个序列号指的是excel最多拥有65536个列单元格，如果我们要选择查找其它列的最后一个有数据的单元格，只需要修改序列a为其它序列就可以了。

相关推荐：

excel表格怎么利用vba自动填充公式?

excel中怎么使用vba绘制一个大头兔的图片?

excel怎么利用vba实现批量套打快递单批量打印单据?