分类求和

就是找到不重复值，并对相同名下的值进行累加：

Sub 分类求和()
Dim arry(1 To 9, 1 To 2)
Set Rng = Cells(Rows.Count, 3).End(xlUp)
''k = Cells.Row
'Rng.Select
arr = Range([b2], Rng)
For i = 1 To Rng.Row - 1
    For j = 1 To UBound(arry, 1)
        If arr(i, 1) = arry(j, 1) Then
            arry(j, 2) = arry(j, 2) + arr(i, 2)
            GoTo 100:
        End If
    Next j
    k = k + 1
    arry(k, 1) = arr(i, 1)
    arry(k, 2) = arr(i, 2)
100:
Next i
[i2].Resize(k, 2) = arry
End Sub