vba - 如何使用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