Excel-VBA：UsedRange.Rows.Count取不到最后一行的行号（行标）

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)