VBA函数判断单元格与左侧单元格不等失效问题修复求助

核心问题定位 #

你代码里判断“当前单元格与左侧不等”的条件完全写错了：cl <> Left(cl, 1)是取当前单元格文本的首字符做比较，而不是获取左侧单元格的值，这直接导致条件失效，把相同值的单元格也纳入了计算。

修复后的完整代码 #

Sub TestFormulas()
    Dim x As Long
    x = SumRenewed(Range("E2:E9000"))
    MsgBox x
End Sub

' 符合需求的函数：累加浅绿且与左侧单元格值不同的行的第2列数值
Function SumRenewed(rRng As Range) As Long
    Dim lngSum As Long
    Dim cl As Range ' 必须声明循环变量，避免隐式类型错误
    
    For Each cl In rRng
        ' 1. 判断单元格是浅绿（ColorIndex=43）
        ' 2. 判断左侧单元格非空且当前单元格值与左侧不等
        If cl.Interior.ColorIndex = 43 Then
            If Not IsEmpty(cl.Offset(0, -1)) And cl.Value <> cl.Offset(0, -1).Value Then
                ' 累加第2列数值，直接转换为Long类型后相加
                lngSum = lngSum + CLng(Cells(cl.Row, 2).Value)
            End If
        End If
    Next cl
    
    SumRenewed = lngSum
End Function

关键修改说明 #

• 修正左侧单元格判断：用cl.Offset(0, -1).Value获取左侧单元格的值，替代错误的Left(cl,1)。
• 变量声明规范：添加Dim cl As Range，避免VBA自动将cl视为变体类型，减少潜在bug。
• 简化求和逻辑：直接用lngSum = lngSum + ...替代WorksheetFunction.Sum，效率更高且代码更简洁。
• 增加空值防护：用Not IsEmpty(cl.Offset(0, -1))避免左侧单元格为空时的比较错误。
• 明确返回类型：给函数加上As Long，确保返回值类型正确，避免变体类型的意外问题。

额外注意事项 #

• 如果第2列的数值可能不是整数，建议把lngSum和函数返回类型改成Double，避免精度丢失。
• 若需要处理日期或文本类型的单元格值比较，确保两侧单元格的数据类型一致，必要时可以用CStr()统一转换为字符串后比较。

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