在VBA中对可见单元格使用CountIf函数报错求助

这问题我太熟悉了！你遇到的Unable to get the CountIf property of the WorksheetFunction class错误，核心原因是**WorksheetFunction.CountIf无法直接处理由多个不连续单元格区域组成的Range对象**。当你用SpecialCells(xlCellTypeVisible)提取可见单元格时，如果筛选后存在隐藏行，返回的myrange会是包含多个Area的多区域Range，而CountIf不支持这种参数。

下面给你两种可靠的解决方法：

方法1：遍历多区域Range的每个Area累加统计 #

既然CountIf能处理单个连续区域，那我们就遍历myrange的每个子区域，把结果加起来：

Dim myrange As Range
Dim returnCount As Long
Dim singleArea As Range

' 获取可见单元格区域（添加错误处理避免无可见单元格时崩溃）
On Error Resume Next
Set myrange = Range("D4", Range("D4").End(xlDown)).SpecialCells(xlCellTypeVisible)
On Error GoTo 0

If Not myrange Is Nothing Then
    returnCount = 0
    ' 遍历每个连续子区域，累加CountIf结果
    For Each singleArea In myrange.Areas
        returnCount = returnCount + WorksheetFunction.CountIf(singleArea, "yes")
    Next singleArea
    MsgBox "可见单元格中""yes""的数量：" & returnCount
Else
    MsgBox "当前没有可见单元格"
End If

方法2：用SUMPRODUCT+SUBTOTAL直接计算 #

如果你不想用循环，也可以借助Excel的数组函数组合，直接忽略隐藏行统计：

Dim lastRow As Long
Dim returnCount As Long

lastRow = Range("D4").End(xlDown).Row
' 用Evaluate执行数组公式：SUBTOTAL判断单元格是否可见，再匹配"yes"
returnCount = Evaluate("SUMPRODUCT(--(D4:D" & lastRow & "=""yes""), --(SUBTOTAL(103, OFFSET(D4, ROW(D4:D" & lastRow & ")-ROW(D4), 0, 1))))")

MsgBox "可见单元格中""yes""的数量：" & returnCount

这里SUBTOTAL(103, ...)用的是忽略隐藏行的COUNTA逻辑，对每个单元格单独判断是否可见；--是把布尔值转成1/0，最后SUMPRODUCT把两个条件的结果相乘后累加，得到符合条件的可见单元格总数。

额外注意点 #

• 如果你的数据范围可能有空行，Range("D4").End(xlDown)可能会提前终止，建议改用Cells(Rows.Count, "D").End(xlUp).Row来获取最后一行更稳妥。
• 一定要加错误处理，避免当所有单元格都隐藏时，SpecialCells抛出错误导致代码崩溃。

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