VBA对不同列求和唯一值

请有人给我指一下正确的方向好吗。我想对重复的值求和，并将它们放在不同的列中

在p列中，我从K列中删除了所有重复的列表

在第N列中，是总数

例如，在K列中，有一个重复的值“9175-2278”，如果将这两个值的总和加起来，则总数为“604”

我希望将该值插入到列Q中

有人能给我指一下正确的方向吗

我尝试过如下代码，但没有成功

子样本（）

端接头

提前感谢您的帮助：）

作为一个公式

=SUMIF（K:K，P3，N:N）

将其放入

Q3

并向下拖动

或者作为宏

Sub Main()
    With Range("Q3")
        .Formula = "=SUMIF(K:K, P3, N:N)"
        .AutoFill Destination:=Range("Q3:Q" & Range("P" & Rows.Count).End(xlUp).Row), Type:=xlFillDefault
    End With
End Sub

---

=SUMIF（K:K，P3，M:M）

把它放到

Q3

里，然后把它拖下来，太好了，非常感谢：）真是帮了大忙，谢谢。有没有办法把它转换成宏？

Sub Main()
    With Range("Q3")
        .Formula = "=SUMIF(K:K, P3, N:N)"
        .AutoFill Destination:=Range("Q3:Q" & Range("P" & Rows.Count).End(xlUp).Row), Type:=xlFillDefault
    End With
End Sub