Excel怎么快速定位列最后一个非空单元格

2021年01月02日 18:47 发布来源：Excel学习网

当处理Excel数据表时，有时需要快速找到某列的最后一个非空白元格，这通常是在编写VBA程序时使用Range对象的End属性来实现的。下面就是小编带给你的Excel快速定位栏的最后一个非空白元格，希望能对你有所帮助。

启动Excel并打开VisualBasic编辑器，将模块插入到工程资源管理器，将程序代码输入到模块的“代码”窗口，如图1所示。该函数实现的具体程序代码如下：

SubtoLastRow()

DimcAsRange

Setc=ActiveSheet.Range("A65536").End(xlUp)

MsgBox"A列最后一个非空单元格为："&c.Address

c.Activate

EndSub

图1　添加模块并编写程序

提示

在ExcelVBA中，End属性将返回一个Range对象，该对象表示区域尾端单元格，其中包含指定的Range对象为多单元格区域时左上角的单元格。在程序中，使用Range对象的End属性获取A列的最后一个非空白元格，然后将它赋予变量c。

2、按F5键运行该过程，程序给出提示对话框，提示最后一个非空单元格的地址，如图2所示。单击“确定”按钮关闭对话框后，程序将定位到该单元格，如图3所示。

Excel怎么快速定位列最后一个非空单元格

图2　程序给出提示

原创文章如转载请注明：转载自Excel学习网 [ http://www.excelxx.com/]
需要保留本文链接地址：http://www.excelxx.com/jiqiao/13030.html

分享到：