在VBA中针对筛选后的数据使用CountIfs函数的问题

问题分析 #

• 使用Autofilter筛选后，CountIfs函数会统计整个指定区域（包含隐藏行）的数据，无法只统计可见行
• 直接使用SpecialCells(xlCellTypeVisible)时，若筛选后无可见单元格或区域不连续，容易触发错误

解决方案 #

方法1：公式直接统计（无需VBA） #

在工作表单元格中输入以下公式，可直接统计筛选后可见区域中符合条件的数量：

=SUMPRODUCT((A2:A297="07-customer noticed")*(C2:C297="03-In Analysis")*(SUBTOTAL(103,OFFSET(A2:A297,ROW(A2:A297)-ROW(A2),0,1))))

• SUBTOTAL(103,...)用于判断对应行是否可见（103代表忽略隐藏行的COUNTA统计）
• OFFSET生成单个单元格引用，配合SUBTOTAL逐行验证可见性

方法2：修正VBA代码统计可见区域 #

以下是修正后的VBA代码，解决原代码的变量声明问题，同时正确处理可见区域的多条件统计：

Sub CountVisibleFilteredData()
    Dim sh As Worksheet, ws As Worksheet
    Dim count As Long
    Dim visibleRange As Range
    Dim cell As Range
    
    ' 替换为你的实际工作表名称
    Set ws = ThisWorkbook.Worksheets("数据工作表")
    Set sh = ThisWorkbook.Worksheets("结果工作表")
    
    ' 处理无可见单元格的报错情况
    On Error Resume Next
    Set visibleRange = ws.Range("A2:A297").SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    count = 0
    
    ' 遍历可见单元格，逐一验证条件
    If Not visibleRange Is Nothing Then
        For Each cell In visibleRange
            If cell.Value = "07-customer noticed" And cell.Offset(0, 2).Value = "03-In Analysis" Then
                count = count + 1
            End If
        Next cell
    End If
    
    ' 输出统计结果
    sh.Range("A1").Value = count
End Sub

代码说明：

1. 修正变量声明：Dim sh As Worksheet, ws As Worksheet确保两个变量均为工作表类型
2. 加入错误捕获：避免因筛选后无可见单元格导致的运行时错误
3. 遍历可见区域：仅对筛选后的可见行进行条件验证与计数

方法3：AGGREGATE函数数组公式（进阶公式方案） #

适用于Excel 365及新版本（旧版本需按Ctrl+Shift+Enter确认数组公式）：

=AGGREGATE(3,5,IF((A2:A297="07-customer noticed")*(C2:C297="03-In Analysis"),ROW(A2:A297),""))

内容的提问来源于stack exchange，提问作者A. Rodrigues