Merhaba
F3 hücresine formülü kopyalayın
=TOPLA.ÇARPIM(($B$3:$B$10000=E3)*($C$3:$C$10000))
Makro ile istiyorsanız
Sub listele2()
For b = 3 To Cells(65536, 2).End(xlUp).Row
If WorksheetFunction.CountIf(Range("b3:b" & b), Cells(b, 2)) = 1 Then
c = c + 1
Sheets("sayfa1").Cells(c + 2, 5) = Cells(b, 2).Value
End If
Next
TOPLACARP1
End Sub
Sub TOPLACARP1()
satır = Sheets("sayfa1").Cells(65536, 5).End(xlUp).Row
For A = 3 To satır
isim = Sheets("sayfa1").Cells(A, 5).Value
Sheets("sayfa1").Cells(A, 6) = Evaluate("SUMPRODUCT((sayfa1!b3:b55000=""" & isim & """)*(sayfa1!c3:c55000))")
Next
End Sub