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

小鸿叔

已于 2022-02-25 18:23:12 修改

阅读量1.1w

点赞数 5

分类专栏： VBA OFFICE-EXCEL 文章标签： UsedRange Count 行号取不到不正确

于 2021-11-06 00:02:01 首次发布

本文链接：https://blog.csdn.net/jyh_jack/article/details/121172989

版权

OFFICE-EXCEL 同时被 2 个专栏收录

52 篇文章 5 订阅

订阅专栏

VBA

42 篇文章 17 订阅

订阅专栏

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)