VBA 代码绝技:高效查找已使用表格末行行号的秘诀

VBA 代码绝技:高效查找已使用表格末行行号的秘诀

编码文章call10242025-03-11 12:45:3832A⁺A^-

平时，在我们使用 Excel 进行数据处理和分析的时候，由于每张表格所使用的范围一般都是不相同的，这就涉及到需要动态确定已经使用的表格的最后一行的行号，这该如何确定最后一行的行号数呢？

这对于动态处理数据、添加新记录或者进行数据统计等操作是非常关键和重要的，方便后续对数据进行操作，比如遍历、计算等操作。下面就跟着我一起来学习这个知识点吧。

VBA（Visual Basic for Applications）作为 Excel 的强大编程工具，在实际编写代码时，经常会用到ws.Cells(ws.Rows.Count, 1).End(xlUp).Row这样一行代码来获取工作表中某一列的最后一个有数据单元格行号的方法，下面来详细解释其各个部分的用法。

以下是一个完整的示例代码，展示了如何使用该语句来获取 A 列最后一个有数据单元格的行号，并将确定的行号数输出到消息框中：

Sub GetLastRowNumber()
    Dim ws As Worksheet
    Dim lastRow As Long
    
    ' 设置要操作的工作表，这里以 Sheet1 为例，可按实际情况修改为需要查找的表名
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 获取 A 列最后一个有数据单元格的行号
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 显示最后一行的行号
    MsgBox "A 列最后一个有数据的单元格在第 " & lastRow & " 行。"
End Sub

整体作用解释

此代码用于确定工作表中指定列（这里是第 1 列为例，即 A 列，如果需要通过B列来确定最后一行的行号，则可以改为2，以次类推即可）最后一个包含数据的单元格所在的行号。

各部分详细的解释

ws

ws 是一个代表工作表对象的变量。在使用此代码前，通常会先通过类似 Set ws = ThisWorkbook.Sheets("Sheet1") 的语句将 ws 赋值为具体的工作表（如 Sheet1）。这样后续就可以通过 ws 来引用该工作表的各种属性和方法。

ws.Rows.Count

Rows 是工作表对象的一个属性，代表工作表中的所有行。ws.Rows.Count 返回的就是当前工作表的总行数。

在 Excel 中，不同版本的文件，实际能够使用的总行数可能是不相同的哦。

Excel 97 - 2003，因这些版本基于 Excel 的早期架构，在当时能够满足大多数用户的日常数据处理需求，但对于处理大规模数据的能力相对有限，这些版本的文件的行数最大值为65536 行。

Excel 2007 及之后版本（包括Excel 2007、 Excel 2010、2013、2016、2019、2021、Microsoft 365 等），从 Excel 2007 开始，微软对 Excel 的底层架构进行了重大升级，大幅提升了数据处理能力，这些版本的行数最大值为 1048576 行，基本能够满足企业级短期数据的存储和分析需求。在实际使用时，虽然高版本 Excel 支持的行数大幅增加，但随着数据量的增大，文件的处理速度和性能可能会受到较大的影响。