如何找到最后一行、最后一列、最后一个单元格？

要查找最后一行、最后一列或最后一个单元格，可以使用范围的“End”属性。 end 属性允许您导航到数据范围的末尾（到最后一个不为空的单元格）。这样，您就可以使用一些常量来决定要导航的方向（向上、向下、向左或向右）。

使用VBA查找Excel中的最后一行

1. 设置要导航到最后一行的单元格或区域。
2. 之后，输入一个点即可获取属性和方法的列表。
3. 选择或键入“End”并输入起始括号。
4. 使用您想使用的任何参数。
5. 此外，使用地址属性来获取单元格地址。

 MsgBox Range("A1").End(xlDown).Address

当您运行上面的代码时，它会显示一个消息框，其中包含最后一个非空单元格的行号。

使用 VBA 查找最后一列

现在假设您要查找最后一列。在这种情况下，您应该使用“xlRight”，而不是使用“xlDown”常量，如果您想选择该单元格而不是地址，则可以使用“select”方法。考虑以下方法。

 Range("A1").End(xlToRight).Select

找到最后一个单元格

使用相同的方法，您还可以获得最后一个非空单元格。要编写此代码，您需要知道最后一行和最后一列。

 Sub vba_last_row() Dim lRow As Long Dim lColumn As Long lRow = Range("A1").End(xlDown).Row lColumn = Range("A1").End(xlToRight).Column Cells(lRow, lColumn).Select End Sub

为了理解上面的代码，我们需要将其分为三个部分。

1. 在第一部分中，您声明了两个变量来存储行号和列号。
2. 在第二部分中，您使用“End”和“xlDown”，然后使用 Row 属性来获取最后一行的行号，同样，您使用“End”和“xlToRight”，然后使用属性“Column”获取最后一列的列号。
3. 在第三部分中，使用最后一个列号和最后一个行号，引用最后一个单元格并选择它。

注意：如果要使用最后一行和最后一列方法选择不同工作表中的单元格，则必须首先启用该工作表。

使用 Find 方法的最后一行、最后一列和单元格

您还可以将 find 方法与 range 对象一起使用来获取工作表的最后一行、最后一列和单元格。要查找行号，代码如下：

 Sub vba_last_row() Dim iRow As Long iRow = Cells.Find(What:="*", _ After:=Range("A1"), _ LookAt:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Row MsgBox iRow End Sub

对于列号：

 Sub vba_last_row() Dim iColumn As Long iColumn = Cells.Find(What:="*", _ After:=Range("A1"), _ LookAt:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByColumns, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Column MsgBox iColumn End Sub

获取最后一个单元格的单元格地址。

 Sub vba_last_row() Dim iColumn As Long Dim iRow As Long iColumn = Cells.Find(What:="*", _ After:=Range("A1"), _ LookAt:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByColumns, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Column iRow = Cells.Find(What:="*", _ After:=Range("A1"), _ LookAt:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Row Cells(iRow, iColumn).Address End Sub