excel最后一個(gè)非空單元格 快速定位列最后一個(gè)非空單元格的實(shí)現(xiàn)方法，周報(bào)、月報(bào)、半年報(bào)，每當(dāng)你做這些報(bào)告的時(shí)候是不是非常的頭痛，但是話又說(shuō)回來(lái)了，如果你多掌握一些辦公軟件相關(guān)的知識(shí)，或許會(huì)讓你負(fù)擔(dān)減少很多，excel最后一個(gè)非空單元格你是不是也經(jīng)常遇到過，像excel最后一個(gè)非空單元格 快速定位列最后一個(gè)非空單元格的實(shí)現(xiàn)方法這類問題，看完今天這篇文章你一定會(huì)有收獲！

在對(duì)Excel數(shù)據(jù)表進(jìn)行操作時(shí)，有時(shí)需要快速定位到某列最后一個(gè)非空單元格，這在編寫VBA程序時(shí)，一般使用Range對(duì)象的End屬性來(lái)實(shí)現(xiàn)。本文介紹了Excel數(shù)據(jù)表中快速定位列最后一個(gè)非空單元格的實(shí)現(xiàn)方法。

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

2、按F5鍵運(yùn)行該過程，程序給出提示對(duì)話框，提示最后一個(gè)非空單元格的地址，如圖2所示。單擊“確定”按鈕關(guān)閉對(duì)話框后，程序?qū)⒍ㄎ坏皆搯卧瘢鐖D3所示。

圖2　程序給出提示

圖3　定位到指定單元格