Sheet1.UsedRange.Rows.Count
'一般是用此种方式能取到最后一行的行标,但是如果Excel表的第一行是空的,就会导致只取Used Range(使用区域)的总行数。
'举个栗子,如果一个表,只有A2单元格里有内容,那上一条的返回值就是1,因为使用区域只有一行的。
'取到最后一行的行标方法如下:
Sheet1.UsedRange.Cells(sht3.UsedRange.Rows.Count,1).row
'Cells(使用区域的最后一行,第一列).行标
'以下两上函数,一个取最后的行号,一个取最后的列号
'根据提供的Range,得到最后一行行号
Function GetLastRowNo(ByRef Rng As Range) As Integer
GetLastRowNo = Rng.Cells(Rng.Rows.Count, 1).Row
End Function
'根据提供的Range,得到最后一列的列号
Function GetLastColNo(ByRef Rng As Range) As Integer
GetLastRowNo = Rng.Cells(1, Rng.Column.Count).Column
End Function
'调用
GetLastRowNo(Sheet1.UsedRange)
GetLastColNo(Sheet1.UsedRange)
Excel-VBA:UsedRange.Rows.Count取不到最后一行的行号(行标)
于 2021-11-06 00:02:01 首次发布