VBA SUM Уникальные значения для разных столбцов

Question

Кто-нибудь захочет указать мне правильное направление, пожалуйста. Я хочу суммировать повторяющиеся значения и поместить их в другой столбец.

В колонке Р, У меня есть список из столбца K со всеми дубликатами удалены.

В столбце N находится общее количество.

Например, в столбце K имеется дублирующее значение «9175-2278», и если вы добавили итоговое значение этих двух значений, вы получите в общей сложности «604».

Я хочу, чтобы это значение вставляется в столбец Q.

Может кто-то пожалуйста мне точку в правильном направлении, пожалуйста.

Я попытался коды, как следующее, но не повезло

Sub образца()

Dim lastRow As Integer, num As Integer, i As Integer 
lastRow = Range("A65000").End(xlUp).Row 


For i = 2 To lastRow 
    num = WorksheetFunction.Match(Cells(i, 1), Range("K1:K" & lastRow), 0) 

    If i = num Then 
     Cells(i, 3) = WorksheetFunction.SumIf(Range("K1:K" & lastRow), Cells(i, 1), Range("Q1:Q" & lastRow)) 

    End If 
Next 

End Sub

Заранее спасибо за помощь :)

Answer 1

в качестве Формула

=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