Excel VBA 范围内的最后一行 - VBA

在处理 Excel 文件时，经常需要获取某一列或某个范围的最后一行。在 VBA 中，可以使用以下代码来获取：

lastRow = Range("A:A").End(xlDown).Row

这段代码将从第一个单元格 “A1” 开始向下查找，直到最后一个非空单元格，并返回该单元格所在的行号。这个方法在数据有空行时并不总是有效，因此还可以使用以下代码：

lastRow = Cells(Rows.Count, "A").End(xlUp).Row

这段代码将从最后一行开始向上查找，直到第一个非空单元格，并返回该单元格所在的行号。这种方法更加可靠，适用于有空行的情况。

而如果要获取指定范围的最后一行，则可以将范围作为参数传递给函数，如下所示：

Function lastRowInCol(ByVal rng As Range) As Long
    lastRowInCol = rng.Cells(rng.Cells.Count).Row
End Function

该函数接收一个范围参数并返回最后一个非空单元格的行号。可以将该函数添加到你的 VBA 代码库中，以便在使用时调用。

总之，这些 VBA 代码可以快速方便地获取 Excel 文件中指定范围的最后一行。