Excel VBA筛选后无可见行时SpecialCells().Count为何总返回1？

问题根因 #

你遇到的计数异常是SpecialCells(xlCellTypeVisible)方法的固有特性导致的：当筛选范围内（你指定的A2:I1000区域）没有符合条件的可见单元格时，直接调用该方法会触发1004运行时错误，如果你之前设置了On Error Resume Next忽略错误，这行计数代码会执行失败，返回的1是异常状态下的错误值，不是真实的行计数。
另外你后续尝试的几个写法还有一个共通问题：如果筛选后的可见行是多段不连续的区域，直接调用.Count只会统计第一个区域的单元格数，就算有匹配数据也可能出现计数不准的情况。

修复后的代码 #

Dim visibleRng As Range
Dim area As Range
filtered_row_count = 0

With stacked_sheet
    .AutoFilterMode = False
    ' 设置筛选条件
    .Range("A1:I1000").AutoFilter Field:=6, Criteria1:=uBoards(b, 1)
    .Range("A1:I1000").AutoFilter Field:=9, Criteria1:=uCombos(c, 1)
    
    ' 捕获无可见单元格的错误
    On Error Resume Next
    Set visibleRng = .Range("A2:I1000").Columns(9).SpecialCells(xlCellTypeVisible)
    On Error GoTo 0 ' 恢复默认错误处理逻辑
    
    ' 累加所有可见区域的行数
    If Not visibleRng Is Nothing Then
        For Each area In visibleRng.Areas
            filtered_row_count = filtered_row_count + area.Rows.Count
        Next
    End If
End With

逻辑说明 #

1. 先定义专门的Range变量存储筛选后的可见单元格，提前将计数变量初始化为0
2. 用On Error Resume Next暂时忽略无可见单元格时的报错，执行后立刻恢复默认错误处理，避免影响后续代码
3. 先判断可见单元格对象是否为空，为空则说明无匹配数据，计数保持0即可
4. 如果存在可见单元格，遍历所有Areas（不连续的可见区域）累加行数，避免多段可见行时计数不准的问题

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