求助，VBA中用字典代替SUMIFS

szctc12321

chxw68 发表于 2024-4-30 10:47
欢迎新朋友。

感谢大神

jjmysjg

cyq4896 发表于 2024-4-30 11:51
参与一下...

自动生成字段

cyq4896

Sub test()
    Set dic = CreateObject("scripting.dictionary")
    arr = [a2].CurrentRegion
    For i = 2 To UBound(arr)
        xm = arr(i, 1) & arr(i, 2)
        If Not dic.exists(xm) Then
            dic(xm) = arr(i, 3)
        Else
            dic(xm) = dic(xm) + arr(i, 3)
        End If
    Next
    Range("h3:j" & Rows.Count) = ""
    brr = [g1].CurrentRegion
    For i = 3 To UBound(brr)
        For j = 2 To UBound(brr, 2)
            xm = brr(i, 1) & brr(2, j)
            If dic.exists(xm) Then
                brr(i, j) = dic(xm)
            End If
        Next
    Next
    [g1].Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub

cyq4896

参与一下...