Excel - 在一列中查找重复项，然后将数量汇总到另一列？答案

【问题标题】：Excel - Find duplicates in one column then sum quantities into another column?Excel - 在一列中查找重复项，然后将数量汇总到另一列？
【发布时间】：2020-10-03 09:26:42
【问题描述】：

Find duplicates in one column then sum quantities into another column

DATA       RESULT   

A  1       A  11
A  1       B  7
A  9       C  5
B  2       D  4
B  2       E  8
B  3            
C  5            
D  4            
E  7            
E  1

【问题讨论】：

COUNTIF function
数据透视表或 Power Query
我试过countif，但我没有想出任何有效的方法。但这可能归咎于我的无能。
对不起，这是SUMIF function。我总是混淆他们。如果你仍然不能让它工作，给我你正在使用的范围的地址（数据和结果列表）。

标签： excel

【解决方案1】：

免责声明：这是关于我们的工具集算器。我们被告知这是一种对 Excel 工作表进行分组的简单而明显的方法。

A1=file("D:/data.xlsx").xlsimport()
A2=A1.groups(_1;sum(_2))
A3=file("D:/result.xlsx").xlsexport(A2)

更多详情见此贴：Group & Summarize an XLS file without Using Excel

【讨论】：

【解决方案2】：

对于 EXCEL 365 （或 Excel 网络应用程序）：

在C1中输入：

=UNIQUE(A1:A10)

在D1输入：

=SUMIF(A1:A10,C1#,B1:B10)

编辑#1：

如果您可以接受 VBA，请尝试：

Public Function unikue(rng As Range)
    Dim arr, c As Collection, r As Range
    Dim nCall As Long, nColl As Long
    Dim i As Long
    Set c = New Collection
    
    nCall = Application.Caller.Count
    
    On Error Resume Next
        For Each r In rng
            c.Add r.Text, CStr(r.Text)
        Next r
    On Error GoTo 0
    nColl = c.Count
    
    
    If nCall > nColl Then
        ReDim arr(1 To nCall, 1 To 1)
        For i = 1 To nCall
            arr(i, 1) = ""
        Next i
    Else
        ReDim arr(1 To nColl, 1 To 1)
    End If
    
    For i = 1 To nColl
        arr(i, 1) = c.Item(i)
    Next i
    
    unikue = arr
End Function

【讨论】：

谢谢，但不幸的是 'UNIQUE' 在我的 Office 2019 中没有作为功能出现。我知道您指的是 Excel 365，但是 ??请有任何想法
我会整理出 UNIQUE 的替代方案， =SUMIF(A1:A10,C1:C5,B1:B10) 工作正常，只需复制到 D5 即可。我想我会用VBA来完成所有的事情。非常感谢您的帮助。
@user10127073 查看我的EDIT#1