如何使用MACROS（VBA）获取Excel中最后一个非空单元格的地址

Question

我想获取Excel工作表中最后一个非空单元格的单元格地址。基本上我想要最后一个非空单元格的行号和列号/名称。我找到了很少的激光来找出最后一个非空单元格中的值，但我需要单元格地址而不是内容。

Answer 1

对于以下数据：

大多数人都希望找到 Blue 单元格：

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