基于另一列单元格颜色求和的VBA函数#VALUE错误求助

原代码存在的问题 #

• 变量名拼写错误：定义时写的是compatedCell，后续使用的是comparedCell，导致对象引用失败
• 对象变量赋值未用Set：Range是对象类型，必须用Set关键字赋值，否则会触发类型不匹配错误
• 求和方式错误：WorksheetFunction.Sum(cl, cSum)不符合Sum函数的使用逻辑，单个单元格直接累加值即可
• 注释语法错误：VBA中注释需用单引号'，而非#

修正后的VBA代码 #

Function SumByColor(CellColor As Range, rRange As Range) As Double
    Dim cSum As Double
    Dim ColIndex As Integer
    Dim comparedCell As Range
    Debug.Print "sumbycolor called"

    ColIndex = CellColor.Interior.ColorIndex

    For Each cl In rRange
        ' 用Set给Range对象赋值，同时确保工作表引用正确
        Set comparedCell = Worksheets("HA").Cells(cl.Row, 1)
        Debug.Print comparedCell.Interior.ColorIndex ' 修正注释语法

        ' 判断颜色匹配，且当前单元格为数值类型时累加
        If comparedCell.Interior.ColorIndex = ColIndex And IsNumeric(cl.Value) Then
            cSum = cSum + cl.Value
        End If
    Next cl

    SumByColor = cSum
End Function

使用说明 #

1. 将代码粘贴到Excel的VBA编辑器中（按Alt+F11打开）
2. 在工作表单元格中调用函数，例如：=SumByColor(A1, B:B)
   • 第一个参数A1是指定颜色的单元格
   • 第二个参数B:B是需要求和的数值列

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