字典-分类汇总

yshcy

     A-D是数据源。想要的结果在F-H。想提取B列所对应的C列的不重复内容到F列和G列，并根据B列的不重复内容，分别求和。自己写的代码是错误的，请高手指点更正，谢谢

ynzsvt

输出位置自己改回去。

romecyf

Sub test()
Dim dic, arr(), i, j, k, s, ss
Set dic = CreateObject("scripting.dictionary")
arr = Range("a1").CurrentRegion
k = 1
For i = 2 To UBound(arr)
    s = arr(i, 2): ss = arr(i, 3)
    If Not dic.exists(s) Then Set dic(s) = CreateObject("scripting.dictionary")
        If Not dic(s).exists(ss) Then
            dic(s)(ss) = arr(i, 4)
        Else
            dic(s)(ss) = dic(s)(ss) + arr(i, 4)
        End If
Next i
    For Each a In dic.keys
    k = k + 1
    Cells(k, 6) = a
    Cells(k, 7) = Join(dic(a).keys, ",")
    Cells(k, 8) = Evaluate(Join(dic(a).Items, "+"))
    Next a
End Sub

今铭昔

liulang0808

https://club.excelhome.net/threa ... tml?_dsign=b73ad3d6
字典案例可以参考

我的城市你来过

=REDUCE(B1:D1,UNIQUE($B$2:$B$13),LAMBDA(x,y,VSTACK(x,HSTACK(y,TEXTJOIN(",",,UNIQUE(FILTER($C$2:$C$13,$B$2:$B$13=y))),SUM(FILTER($D$2:$D$13,$B$2:$B$13=y))))))

ykcbf1100

字典，参与一下。。。

ykcbf1100

字典，排重汇总

我的城市你来过

usedrange

参与一下，字典嵌套的应用