我看了你的VBA函数，没法正常运行大概率是几个小细节没处理好，咱们一步步来修正：

原代码的潜在问题 #

• ColorIndex 依赖于Excel的颜色索引表，不同主题或版本可能出现颜色匹配偏差，改用Interior.Color（RGB值）会更稳定
• 没有处理参数为多单元格区域的情况（虽然你说用参照单元格，但加个判断能避免意外报错）
• 缺少基础错误处理，比如传入无效区域时会直接崩溃

修正后的代码 #

Function CountCcolor(range_data As Range, criteria As Range, cellvalue As Range) As Long
    Dim datax As Range
    Dim targetColor As Long
    Dim targetValue As Variant
    
    ' 确保参照单元格是单个单元格，避免多区域传入报错
    If criteria.Cells.Count > 1 Or cellvalue.Cells.Count > 1 Then
        CountCcolor = -1 ' 返回-1标记参数错误，方便排查
        Exit Function
    End If
    
    ' 获取目标颜色（用Color而非ColorIndex，不受主题影响，匹配更准确）
    targetColor = criteria.Interior.Color
    ' 获取目标值，提前存到变量里提升循环效率
    targetValue = cellvalue.Value
    
    ' 遍历目标区域统计符合条件的单元格
    For Each datax In range_data
        ' 同时匹配填充颜色和单元格值
        If datax.Interior.Color = targetColor And datax.Value = targetValue Then
            CountCcolor = CountCcolor + 1
        End If
    Next datax
End Function

关键修改说明 #

• 新增参数合法性检查：如果传入的参照单元格是多单元格区域，返回-1提示参数错误，避免无意义的错误弹窗
• 替换ColorIndex为Color：直接用RGB颜色值匹配，不会受Excel主题或颜色索引变更影响，颜色匹配更精准
• 提前缓存目标值：避免每次循环都读取单元格内容，小幅提升函数运行效率

使用方法 #

在Excel单元格里直接调用这个函数即可，示例：
=CountCcolor(A1:C10, E1, E2)

• A1:C10：需要统计的目标区域
• E1：填充颜色的参照单元格（取它的背景色）
• E2：目标值的参照单元格（取它的内容）

注意：使用自定义函数时，Excel需要启用宏，文件要保存为.xlsm格式才能保留宏功能哦~

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