Excel怎么快速定位列最后一個(gè)非空單元格
Excel怎么快速定位列最后一個(gè)非空單元格
在對Excel數(shù)據(jù)表進(jìn)行操作時(shí)，有時(shí)需要快速定位到某列最后一個(gè)非空單元格，這在編寫VBA程序時(shí)，一般使用Range對象的End屬性來實(shí)現(xiàn)。以下是學(xué)習(xí)啦小編為您帶來的關(guān)于Excel快速定位列最后一個(gè)非空單元格，希望對您有所幫助。
Excel快速定位列最后一個(gè)非空單元格
1、啟動(dòng)Excel并打開Visual Basic編輯器，在工程資源管理器中插入一個(gè)模塊，在模塊的“代碼”窗口中輸入程序代碼，如圖1所示。實(shí)現(xiàn)功能的具體程序代碼如下所示：
Sub toLastRow()
Dim c As Range
Set c=ActiveSheet.Range("A65536").End(xlUp)
MsgBox "A列最后一個(gè)非空單元格為："&c.Address
c.Activate
End Sub
圖1 添加模塊并編寫程序
提示
在Excel VBA中，End屬性將返回一個(gè)Range對象，該對象代表包含源區(qū)域的區(qū)域尾端單元格，當(dāng)指定的Range對象為多單元格區(qū)域時(shí)，默認(rèn)為左上角的單元格。在程序中，使用Range對象的End屬性來獲得A列最后一個(gè)非空單元格并將其賦予變量c。
2、按F5鍵運(yùn)行該過程，程序給出提示對話框，提示最后一個(gè)非空單元格的地址，如圖2所示。單擊“確定”按鈕關(guān)閉對話框后，程序?qū)⒍ㄎ坏皆搯卧?，如圖3所示。
圖2 程序給出提示
圖3 定位到指定單元格
猜你喜歡：
1.excel單元格為空時(shí)怎么顯示我們的警示標(biāo)志防止漏掉數(shù)據(jù)
3.excel2010中僅允許用戶編輯固定區(qū)域單元格的設(shè)置方法