位置:首頁 > 軟件操作教程 > 辦公軟件 > Excel > 問題詳情

快速定位列最后一個非空單元格的實現(xiàn)方法

提問人:周麗平發(fā)布時間:2021-08-26

1、啟動Excel并打開Visual Basic編輯器,在工程資源管理器中插入一個模塊,在模塊的“代碼”窗口中輸入程序代碼,如圖1所示。實現(xiàn)功能的具體程序代碼如下所示:

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對象,該對象代表包含源區(qū)域的區(qū)域尾端單元格,當指定的Range對象為多單元格區(qū)域時,默認為左上角的單元格。在程序中,使用Range對象的End屬性來獲得A列最后一個非空單元格并將其賦予變量c。

2、按F5鍵運行該過程,程序給出提示對話框,提示最后一個非空單元格的地址,如圖2所示。單擊“確定”按鈕關閉對話框后,程序將定位到該單元格,如圖3所示。

image.png

圖2 程序給出提示

image.png

圖3 定位到指定單元格

繼續(xù)查找其他問題的答案?

回復(0)
返回頂部