首页 > 软件操作教程 > 办公软件 > 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

image.png

图1 添加模块并编写程序

提示

在Excel VBA中,End属性将返回一个Range对象,该对象代表包含源区域的区域尾端单元格,当指定的Range对象为多单元格区域时,默认为左上角的单元格。在程序中,使用Range对象的End属性来获得A列最后一个非空单元格并将其赋予变量c。

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

image.png

图2 程序给出提示

image.png

图3 定位到指定单元格

网友评论(共0条评论)

请自觉遵守互联网相关政策法规,评论内容只代表网友观点!

最新评论

点击加载更多评论>>

软件操作 新人注册送三重礼

已有 22658 名学员学习以下课程通过考试

相关视频试题

最需教育客户端 软件问题一手掌握

去 App Store 免费下载 iOS 客户端