求助求助！如何根据名字求和

公式=SUM(($A$2:$A$10=E2)*$C$2:$C$10)，按三键！

类似于这种吧？
Sub test()
Dim i As Range, n As Long
For k = 1 To Cells(Rows.Count, 1).End(xlUp).Row
n = 1
For Each i In Range("a1", "a" & k)
If Application.WorksheetFunction.CountIf(Range("$A$1:" & i.Address), i) = 1 Then
Cells(n, 10) = i
Cells(n, 11) = Application.WorksheetFunction.SumIf(ActiveSheet.Range("A1", "A" & k), ActiveSheet.Range("j" & n), ActiveSheet.Range("B1", "B" & k))
n = n + 1
End If
Next
Next k
End Sub