excel中使用vba獲得當前表格列最后個非空單元格

1、首先我們打開一個工作樣表作為例子。

2、當我們的正在使用的工作表輸入了非常多的數據的時候，我們就會難以尋找到表格列的最末尾，一般情況下我們不會見到數據達到幾萬條的表格，但是如果遇到了，又需要快速定位到末尾去怎么處理呢。

3、這里是做個比方，在該工作表內我們不確定哪個區域還有數據內容，但是我們可以用vba來快速尋找到該列需要定位的最后一個有數據的單元格。這里我們先使用alt+f11組合快捷鍵進入vbe編輯器，插入一個新的模塊，并在模塊中輸入以下代碼：

Option Explicit

Sub dingwei()

Dim rng As Range

Set rng = ActiveSheet.Range("a65536").End(xlUp)

rng.Activate

Set rng = Nothing

End Sub

4、這里我們應用的是end方法。它作用的對象是range（"a65536"）單元格，向上最后一個有數據的單元格。xlup即向上尋找有數據單元格的end參數。

5、因為我們把該單元格賦值給rng區域，所以這里激活它，就是跳轉到該單元格。如圖所示激活了a72這個單元格。

6、a65536這個序列號指的是excel最多擁有65536個列單元格，如果我們要選擇查找其它列的最后一個有數據的單元格，只需要修改序列a為其它序列就可以了。

相關推薦：

excel表格怎么利用vba自動填充公式?

excel中怎么使用vba繪制一個大頭兔的圖片?

excel怎么利用vba實現批量套打快遞單批量打印單據?