Question

用VBA数组或字典 进行多条件多列汇总

用VBA数组或字典 进行多条件多列汇总

Answer 1

Sub s()
    arr = [a1].CurrentRegion
    Set d1 = CreateObject("scripting.dictionary")
    Set d2 = CreateObject("scripting.dictionary")
    For i = 1 To UBound(arr)
        d1(arr(i, 1) & " " & arr(i, 2)) = d1(arr(i, 1) & " " & arr(i, 2)) + arr(i, 3)
        d2(arr(i, 1) & " " & arr(i, 2)) = d2(arr(i, 1) & " " & arr(i, 2)) + arr(i, 4)
    Next
    i = 0
    For Each k In d1.Keys
        i = i + 1
        Cells(i, 7).Resize(, 2) = Split(k)
        Cells(i, 9) = d1(k)
        Cells(i, 10) = d2(k)
    Next
End Sub