运用数组做多条件统计

金樽邀月

本人菜鸟初学VBA，现需要统计G列提成合计，因为数据量大，希望使用数组提高运算速度，请老师检查下arr(i, 2) = Application.Evaluate("=SUMPRODUCT(((B2:B" & lra & ")=arr(" & i & ",1))*(C2:C" & lra & "))")，这条代码错在哪里？

朝露孤烟

在数组中用函数还是不快的，建议用以下方法处理较好。
在循环中做这样修改，不知你是否可以理解？
    For i = LBound(arr) To UBound(arr)
        Dim sum As Double
        Dim k As Long
        Dim val As Variant
        val = arr(i, 1)  ' 要匹配的值
        sum = 0  ' 初始化总和
        ' 遍历单元格范围
        For k = 2 To lra
            If Cells(k, 2).Value = val Then  ' 检查 B 列的值是否匹配
                sum = sum + Cells(k, 3).Value  ' 将 C 列的值加到总和中
            End If
        Next k
        arr(i, 2) = sum  ' 将计算得到的总和赋值给数组
        'arr(i, 2) = Application.Evaluate("=SUMPRODUCT(((B2:B" & lra & ")=arr(" & i & ",1))*(C2:C" & lra & "))")
    Next i

金樽邀月

朝露孤烟 发表于 2025-5-23 17:32
在数组中用函数还是不快的，建议用以下方法处理较好。
在循环中做这样修改，不知你是否可以理解？
    Fo ...

谢谢老师的解答，开拓了我的视野