如何使用MACROS（VBA）獲得excel中最後一個非空單元格的地址

Question

我想獲取excel表格中最後一個非空單元格的單元格地址。基本上我想要最後一個非空單元的行和列號/名稱。我發現很少有人能夠找到最後一個非空單元格的值，但我需要單元格地址而不是內容。

Answer 1

對於這樣的數據：

大部分的人都想找到藍細胞：

Sub FindBlue() 
    Dim rng As Range 
    Set rng = Cells.Find(What:="*", After:=Cells(1), SearchDirection:=xlPrevious, searchorder:=xlByRows) 
    MsgBox rng.Address(0, 0) 
End Sub 

如果你想那麼黃細胞：

Sub FindYellow() 
    Dim rng As Range 
    Set rng = Cells.Find(What:="*", After:=Cells(1), SearchDirection:=xlPrevious, searchorder:=xlByColumns) 
    MsgBox rng.Address(0, 0) 
End Sub