excel怎么使用vba判断最后一个单元格是否为空?

来源：本站整理作者：梦在深巷时间：2016-10-17 11:46:42

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

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

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

excel怎么使用vba判断最后一个单元格是否为空?

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

excel怎么使用vba判断最后一个单元格是否为空?

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

excel怎么使用vba判断最后一个单元格是否为空?

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

excel怎么使用vba判断最后一个单元格是否为空?

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

excel怎么使用vba判断最后一个单元格是否为空?