VBA中UsedRange.Rows.Count返回值与实际使用行数不一致问题咨询

问题原因 #

Excel的UsedRange统计的是工作表中所有曾被修改过的单元格的最大范围，修改操作包括输入内容、设置单元格格式、添加数据验证、插入批注，哪怕只是误操作修改了单元格格式又撤销，也会被标记为“已使用”。手动清空单元格内容不会清除这个标记，因此即使多余行没有内容，也会被纳入UsedRange统计，只有手动删除整行或者强制重置UsedRange才会更新范围。

解决方案 #

1. 优先使用更可靠的最后一行获取方式 #

不要依赖UsedRange.Rows.Count判断最后一行，系统导出的报告通常会有一列（比如A列是序号、业务主键）每行有效数据必有值，用以下代码获取真实最后一行，完全不受空白格式行的影响：

Dim lastRow As Long
' 替换为你的实际工作表名、实际非空列的列号/列名
lastRow = ThisWorkbook.Sheets("报告工作表").Cells(Rows.Count, "A").End(xlUp).Row

2. 强制重置UsedRange #

如果你确实需要使用UsedRange做遍历，可以在执行比对前先强制Excel更新UsedRange的计数：

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("报告工作表")
' 执行一次UsedRange调用即可强制重置计数
ws.UsedRange
' 此时获取的行数就是剔除无效空白行的正确数值
Dim validRowCount As Long
validRowCount = ws.UsedRange.Rows.Count

3. 比对逻辑增加空白行校验 #

从根源避免误判，在两行内容比对前增加校验，如果两份报告的当前行都是完全空白的，直接跳过差异标记逻辑：

' ws1、ws2为两份报告对应的工作表对象，row1、row2为当前比对的行号
Dim rowBlank1 As Boolean, rowBlank2 As Boolean
rowBlank1 = (WorksheetFunction.CountA(ws1.Rows(row1)) = 0)
rowBlank2 = (WorksheetFunction.CountA(ws2.Rows(row2)) = 0)

If rowBlank1 And rowBlank2 Then
    ' 两行均为空白，直接进入下一轮比对
    GoTo NextCompareRow
End If

' 原有差异比对逻辑
' ...

NextCompareRow:

内容的提问来源于stack exchange，提问作者Anna