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”。
技术交流,软件开发,欢迎微信沟通: