VBA SUM 不同列的唯一值答案

【问题标题】：VBA SUM Unique Values to different columnVBA SUM 不同列的唯一值
【发布时间】：2015-02-18 10:54:52
【问题描述】：

有人愿意为我指出正确的方向吗？我想总结重复值并将它们放入不同的列中。

在 P 列中，我从 K 列中删除了所有重复项。

在 N 列中，是总计。

例如，在 K 列中，有一个重复值“9175-2278”，如果将这 2 个值的总和相加，则得到的总和为“604”。

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

请有人指点我正确的方向。

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

子样本()

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

结束子

提前感谢您的帮助:)

【问题讨论】：

=SUMIF(K:K,P3, M:M) 将其放入Q3 并向下拖动
太完美了，非常感谢：) 真的很大的帮助，谢谢。有没有办法把它转换成宏？

标签： vba excel

【解决方案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

【讨论】：