VBA中Range.End(xlDown).Count计数不符问题求助

编写了三段语法一致的VBA代码，意图统计从表头（K10/AC10/U10）到空白单元格前的行数，预期结果为cntr2=1、cntr3=1、cntr=3，但实际运行得到cntr2=8、cntr3=2、cntr=3。尝试过Clear和ClearContent方法，结果仍未改变。

原代码如下：

Sub mengelear()
    cntr2 = Range("K10", Range("K10").End(xlDown)).Count
    cntr3 = Range("AC10", Range("AC10").End(xlDown)).Count
    cntr = Range("U10", Range("U10").End(xlDown)).Count
    MsgBox (cntr)
End Sub

数据情况：K10为表头，仅K11有数据，K12及以下为空；AC10为表头，仅AC11有数据，AC12及以下为空；U10为表头，U11、U12、U13有数据，U14及以下为空。

问题原因 #

1. 原代码用.Count统计的是区域内所有单元格总数，而非目标行数。对于单列区域，.Count等于区域行数，但如果表头下方单元格有残留格式（即便内容已被ClearContent清除），Range.End(xlDown)会跳到带格式的最后一行，导致统计行数远大于实际数据行数。
2. 若表头下第一行是空值，End(xlDown)会默认跳到工作表最后一行，进一步放大误差。

解决代码 #

改用行号差值计算实际数据行数（表头下方的有效行数），同时增加空值判断避免异常：

Sub mengelear()
    ' 统计K列表头下的有效数据行数
    cntr2 = IIf(Range("K11").Value <> "", Range("K10").End(xlDown).Row - Range("K10").Row, 0)
    ' 统计AC列表头下的有效数据行数
    cntr3 = IIf(Range("AC11").Value <> "", Range("AC10").End(xlDown).Row - Range("AC10").Row, 0)
    ' 统计U列表头下的有效数据行数
    cntr = IIf(Range("U11").Value <> "", Range("U10").End(xlDown).Row - Range("U10").Row, 0)
    
    MsgBox "K列数据行数：" & cntr2 & vbCrLf & "AC列数据行数：" & cntr3 & vbCrLf & "U列数据行数：" & cntr
End Sub

代码说明 #

• Range("K10").End(xlDown).Row获取表头下方最后一行数据的行号，减去表头行号（10），得到表头下的有效数据行数，与预期结果匹配。
• IIf函数判断表头下第一行是否为空，为空则直接返回0，避免End(xlDown)跳到工作表末尾导致错误。
• 若需彻底清除单元格格式和内容，可在统计前执行Range("K10:K" & Rows.Count).Clear，但上述代码已不受残留格式影响，无需额外操作。

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