用VBA在Excel中找尋最后一行的方法.docVIP

PAGE PAGE 1 用VBA在Excel中找寻最后一行的方法： 使用End属性 在ExcelVBA中，使用End(xlUp)查找最后一行是最常使用且最为简单的方法，它假设要有一列总包含有数据(数字、文本和公式等)，并且在该列中最后输入数据的单元格的下一行不会包含数据，因此不必担心会覆盖掉已有数据。但该方法有两个缺点： (1) 仅局限于查找指定列的最后一行。 (2) 如果该列中最后一行被隐藏，那么该隐藏行将被视作最后一行。因此，在最后一行被隐藏时，其数据可能会被覆盖。但该列中间的隐藏行不会影响查找的结果。 [示例代码01] Sub EndxlUp_OneColLastRow() If Range(A Rows.Count).End(xlUp) = Empty Then GoTo Finish 获取最后一行 MsgBox 最后一行是第 Range(A Rows.Count).End(xlUp).Row “行.” Exit Sub Finish: MsgBox 没有发现公式或数据! End Sub [示例代码02] Sub NextRowInColumnUsedAsSub() 包含所有数据和公式，忽略隐藏的最后一行 Range(A Range(A Rows.Coun