Question

VBA只用数组不要用字典 汇总不同班级总分

VBA只用数组不要用字典 汇总不同班级总分

Answer 1

Sub s()
    arr = [a1].CurrentRegion
    ReDim brr(1 To UBound(arr), 1 To 2)
    For i = 2 To UBound(arr)
        For j = 1 To k
            If arr(i, 1) = brr(j, 1) Then
                brr(j, 2) = brr(j, 2) + arr(i, 3)
                GoTo 1
            End If
        Next
        k = k + 1
        brr(k, 1) = arr(i, 1)
        brr(k, 2) = arr(i, 3)
1:
    Next
    [e2].Resize(k, 2) = brr
End Sub