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

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

　　在对Excel数据表进行操作时，有时需要快速定位到某列最后一个非空单元格，这在编写VBA程序时，一般使用Range对象的End属性来实现。以下是学习啦小编为您带来的关于Excel快速定位列最后一个非空单元格，希望对您有所帮助。

　　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

　　图1　添加模块并编写程序

　　提示

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

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

　　图2　程序给出提示

　　图3　定位到指定单元格

猜你喜欢：

1.excel单元格为空时怎么显示我们的警示标志防止漏掉数据

2.Excel如何隔列插入多列空白列

3.excel2010中仅允许用户编辑固定区域单元格的设置方法

4.excel表格ADDRESS函数怎样设置对某单元格引用

5.Excel2013中单元格出现不能拖拽的解决方法