请教一个统计问题

justdoit2003

何必搞得那么复杂呀，直接公式上。至于最后一个“、“处不处理都无所谓了。
在G2输入

1. =CONCAT(IF(F2<>1,"",IF($D$2:$D$17=D2&$F$2:$F$17,TEXT($C$2:$C$17,"#0、"),"")))

复制代码

三键公式，下拉

gwjkkkkk

参与 一下。。。

准提部林

Sub TEST_A1()
Dim Arr, xD, i&, T$, TX$, R&, S$
Set xD = CreateObject("scripting.dictionary")
Arr = Range([f1], [b65536].End(3))
For i = 2 To UBound(Arr)
    T = Arr(i, 3): TX = T & "/x": Arr(i - 1, 1) = ""
    If Arr(i, 5) = 1 Then xD(TX) = i - 1: GoTo i01
    R = xD(TX): S = xD(T)
    xD(T) = S & IIf(S = "", "", "、") & Arr(i, 2)
    If R > 0 Then Arr(R, 1) = xD(T)
i01: Next i
[g2].Resize(UBound(Arr) - 1) = Arr
End Sub