如何实现按单元格颜色筛选并结合COUNTIF逻辑统计指定名称？

你的需求完全可行，只需在现有函数基础上加入名称匹配的逻辑即可。现有函数仅实现了颜色计数，缺少和目标名称的关联判断，以下是修改后的实现：

修改后的VBA函数 #

Function Countif_Color_Name(rngColor As Range, refColor As Range, rngNames As Range, targetName As String) As Long
    Application.Volatile
    Dim x As Long
    Dim cel As Range
    Dim nameCel As Range
    x = 0
    
    ' 确保颜色区域和名称区域行数一致
    If rngColor.Rows.Count <> rngNames.Rows.Count Then
        Countif_Color_Name = -1 ' 返回-1提示区域不匹配
        Exit Function
    End If
    
    Set nameCel = rngNames.Cells(1, 1)
    For Each cel In rngColor
        ' 两个条件同时满足：颜色匹配 + 名称匹配
        If cel.Interior.Color = refColor.Interior.Color And nameCel.Value = targetName Then
            x = x + 1
        End If
        Set nameCel = nameCel.Offset(1, 0) ' 下移名称单元格
    Next
    
    Countif_Color_Name = x
End Function

函数用法 #

假设：

• 颜色所在列是A2:A100
• 参考绿色单元格是C1
• 名称所在列是B2:B100
• 要统计的目标名称是"张三"

在单元格中输入公式：

=Countif_Color_Name(A2:A100, C1, B2:B100, "张三")

关键说明 #

• Application.Volatile确保函数在工作表内容或颜色变化时自动重算
• 加入了区域行数校验，避免颜色列和名称列行数不一致导致统计错误
• 同时判断单元格颜色等于参考颜色和对应名称等于目标名称两个条件

补充提示 #

如果你的绿色是通过条件格式设置的，Interior.Color可能无法识别（条件格式的颜色属于单元格格式而非直接填充色），此时需要改用DisplayFormat.Color，修改后的判断语句为：

If cel.DisplayFormat.Color = refColor.DisplayFormat.Color And nameCel.Value = targetName Then

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