在对Excel数据表进行操作时,有时需要快速定位到某列最后一个非空单元格,这在编写VBA程序时,一般使用Range对象的End属性来实现。本文介绍了Excel数据表中快速定位列最后一个非空单元格的实现方法。
1、启动Excel并打开Visual Basic编辑器,在工程资源管理器中插入一个模块,在模块的“代码”窗口中输入程序代码,如图1所示。实现功能的具体程序代码如下所示:
Sub toLastRow()
Dim c As Range
Set c=ActiveSheet.Range("A65536").End(xlUp)
MsgBox "A列最后一个非空单元格为:"&c.Address
c.Activate
End Sub