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

excel

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

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

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

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

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

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

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