字典-分类汇总

lizhipei78

yangqianming 发表于 2024-11-3 10:43
有点儿不明白，reduce第二参数是个数组，p??=p.push()-1是第一次见到p就把b,c,0添加到数组，后面又p][1]+ ...

1.是数组当字典用
2.三元运算符

准提部林

准式字典...by.准提部林
Sub Test_A1()
Dim Arr, Brr, xD, i&, T$, T1$, T2$, N&, R&, Rk$
Set xD = CreateObject("scripting.dictionary")
Arr = Range([d1], [b65536].End(3))
ReDim Brr(1 To UBound(Arr), 1 To 3)
For i = 2 To UBound(Arr)
    T1 = Arr(i, 1): T2 = Arr(i, 2): T = T1 & "\" & T2
    R = xD(T1): Rk = Left(",", R)
    If R = 0 Then N = N + 1: R = N: xD(T1) = N: Brr(N, 1) = T1
    If xD(T) = 0 Then Brr(R, 2) = Brr(R, 2) & Rk & T2: xD(T) = 1
    Brr(R, 3) = Brr(R, 3) + Arr(i, 3)
Next i
[f2].Resize(N, 3) = Brr
End Sub

Again123456

yangqianming 发表于 2024-11-3 10:43
有点儿不明白，reduce第二参数是个数组，p??=p.push()-1是第一次见到p就把b,c,0添加到数组，后面又p][1]+ ...

第一次遇到某国时，压入国家和类别。同时，用数组做字典，以国家做key,记录下行号。
这样，下次遇到这个国家的时候，只要处理字典存放的行号里的数据就行。
还是我帮你写的数据透视的原理。用行列号，去写入结果数组

yangqianming

Again123456 发表于 2024-11-3 19:30
第一次遇到某国时，压入国家和类别。同时，用数组做字典，以国家做key,记录下行号。
这样，下次遇到这个 ...

是的，我看到代码有些不同就迷糊，谢谢老师！

z865593849

凑个热闹

LIUZHU

Again123456 发表于 2024-11-1 10:35

有缺陷啊，前面多了一个逗号

Again123456

LIUZHU 发表于 2024-11-15 10:35
有缺陷啊，前面多了一个逗号

没注意，19楼稍改了一下，就没逗号了

LIUZHU

参与下

LIUZHU

Again123456 发表于 2024-11-2 20:22
哦，我没注意多了个逗号，稍改一下就行了

思路不错，直接把c放到初始值，解决了第一个逗号的问题

cjc209

函数更简单
=GROUPBY(B1:B13,C1:D13,HSTACK(LAMBDA(x,TEXTJOIN(",",0,UNIQUE(x))),SUM),3,0)