如何用VBA编写支持多操作符的SUMIF克隆函数？

我完全懂你想让自己的SUMIF克隆函数支持>=、<=、<>这类比较操作符的需求——原生Excel的SUMIF能灵活处理这些，咱们给你的VBA代码加这个功能其实不难，核心就是拆分条件里的操作符和目标值，然后根据不同的操作符做对应的判断。

先来看改造后的完整代码：

Function SUMIF_VBA(Crit_Rng As Range, Condition_U As Variant, Sum_Rng As Range) As Variant
    Dim R_Offset As Long, C_Offset As Long
    Dim Cell As Range
    Dim op As String, compareVal As Variant
    Dim isValidCondition As Boolean
    
    ' 初始化偏移量和结果
    R_Offset = Sum_Rng.Row - Crit_Rng.Row
    C_Offset = Sum_Rng.Column - Crit_Rng.Column
    SUMIF_VBA = 0
    isValidCondition = True
    
    ' 处理条件：拆分操作符和比较值
    Select Case True
        Case TypeName(Condition_U) = "String"
            ' 检查开头的操作符
            If Left(Condition_U, 2) Like "[<>]=" Or Left(Condition_U, 2) = "<>" Then
                op = Left(Condition_U, 2)
                compareVal = Mid(Condition_U, 3)
            ElseIf Left(Condition_U, 1) Like "[<>]" Then
                op = Left(Condition_U, 1)
                compareVal = Mid(Condition_U, 2)
            Else
                ' 没有操作符，默认等于
                op = "="
                compareVal = Condition_U
            End If
            
            ' 尝试把比较值转成对应类型（比如字符串转数字）
            On Error Resume Next
            compareVal = CDbl(compareVal)
            If Err.Number <> 0 Then
                compareVal = Condition_U ' 转失败就保持原字符串
            End If
            On Error GoTo 0
            
        Case Else
            ' 条件是数值/布尔值，默认等于
            op = "="
            compareVal = Condition_U
    End Select
    
    ' 遍历条件区域，根据操作符判断并求和
    On Error Resume Next ' 忽略单元格值类型不匹配的错误
    For Each Cell In Crit_Rng
        If Not IsEmpty(Cell.Value) Then
            Select Case op
                Case "="
                    If Cell.Value = compareVal Then
                        SUMIF_VBA = SUMIF_VBA + Cell.Offset(R_Offset, C_Offset).Value
                    End If
                Case ">"
                    If Cell.Value > compareVal Then
                        SUMIF_VBA = SUMIF_VBA + Cell.Offset(R_Offset, C_Offset).Value
                    End If
                Case "<"
                    If Cell.Value < compareVal Then
                        SUMIF_VBA = SUMIF_VBA + Cell.Offset(R_Offset, C_Offset).Value
                    End If
                Case ">="
                    If Cell.Value >= compareVal Then
                        SUMIF_VBA = SUMIF_VBA + Cell.Offset(R_Offset, C_Offset).Value
                    End If
                Case "<="
                    If Cell.Value <= compareVal Then
                        SUMIF_VBA = SUMIF_VBA + Cell.Offset(R_Offset, C_Offset).Value
                    End If
                Case "<>"
                    If Cell.Value <> compareVal Then
                        SUMIF_VBA = SUMIF_VBA + Cell.Offset(R_Offset, C_Offset).Value
                    End If
                Case Else
                    isValidCondition = False
            End Select
        End If
    Next Cell
    On Error GoTo 0
    
    ' 如果条件无效，返回错误值
    If Not isValidCondition Then
        SUMIF_VBA = CVErr(xlErrValue)
    End If
End Function

关键改动说明： #

1. 条件拆分逻辑：

   • 先判断条件是字符串还是数值：如果是字符串，检查开头是否是>=、<=、<>这类双字符操作符，或是>、<单字符操作符，拆分出操作符和要比较的值。
   • 尝试把比较值转成数字（比如">=10"里的10），如果转失败（比如条件是">=Apple"）就保持字符串类型，确保文本比较也能正常工作。

2. 多操作符判断：

   • 用Select Case替代原来单一的等于判断，分别处理=、>、<、>=、<=、<>六种常见操作符。

3. 容错处理：

   • 忽略空单元格的判断，避免空值干扰求和。
   • 加入错误捕获，防止单元格值类型不匹配（比如文本和数字比较）导致函数崩溃，无效条件会返回Excel标准的#VALUE!错误。

使用示例： #

和原生SUMIF的用法完全一致：

• 求和A列中值大于等于10对应的C列值：=SUMIF_VBA(A:A, ">=10", C:C)
• 求和B列中不等于"Apple"对应的D列值：=SUMIF_VBA(B:B, "<>Apple", D:D)
• 原始的等于判断依然有效：=SUMIF_VBA(A:A, 5, C:C)

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