VBA学习(56)：获取工作表的最后一行数据行号

VBA获取工作表的最后一行数据行号，涉及Range对象的基础知识，是开发更复杂VBA程序的重要基石。主要的两种应用场景是：一是获取指定列的最后一行数据行号，二是获取已用区域的最后一行数据行号。

案例数据

1.获取指定列的最后一行数据行号（如A列）

Sub GetRowNumByColumn()
    '声明变量
    Dim lastRow As Long, MaxRow As Long
    '获取当前工作表允许的最大行数
    MaxRow = ActiveSheet.Rows.Count
    '通过End属性定位到A列最后一个单元格，从而获取行号
    lastRow = ActiveSheet.Range("a" & MaxRow).End(xlUp).Row
    '显示运行结果
    Debug.Print "A列的最后一行数据行号为：" & lastRow
End Sub

运行结果：“A列的最后一行数据行号为：2”。

2.获取已用区域的最后一行数据行号

Sub GetRowNumByUsedRange()
    '声明变量
    Dim lastRow As Long, usedRowsCount As Long
    '获取已用区域的总行数
    usedRowsCount = ActiveSheet.UsedRange.Rows.Count
    '通过Rows属性定位到已用区域的最后一行数据，从而获取行号
    lastRow = ActiveSheet.UsedRange.Rows(usedRowsCount).Row
    '显示运行结果
    Debug.Print "已用区域的最后一行数据行号为：" & lastRow
End Sub

运行结果：“已用区域的最后一行数据行号为：6”。 

 技术交流，软件开发，欢迎微信沟通：