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

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

Answer 1

对于如下数据：

大多数人想要find蓝色的细胞：

 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