使用usedrange查找最后一行

Question

我正在创建一个大型的宏代码来自动执行我的日常办公报告。 我正在使用以下代码获取最后一行。

Lrow = ActiveSheet.UsedRange.SpecialCells(xlLastCell).Row

在哪种情况下，此代码最终将给出错误的结果。

当数据不是表格形式时，使用“来自列的最后一个单元格的xlup”之类的命令是没有用的。 例如。第1列有10个单元格，第2列有25个单元格。

Answer 1

您可以使用find在工作表中找到最后一个Row。例如

LastRow = ActiveSheet.Cells.Find("*", LookIn:=xlFormulas, SearchOrder:=xlByRows, _
    SearchDirection:=xlPrevious).Row