如何把款号的所有色号汇总到一个单元格，用逗号隔开，公式处理，另外透视表可以吗...

gerardpique

如标题所述

gerardpique

这会儿没有大佬在吗？快来教教我谢谢哈

泊蓝

365函数：=TEXTJOIN(",",,C4:C65)

约定的童话

Sub 汇总()
    Dim i, n, arr, brr, d As Object
    Set d = CreateObject("scripting.dictionary")
    arr = [a3].CurrentRegion
    ReDim brr(1 To UBound(arr), 1 To 2)
    For i = 2 To UBound(arr)
        t = arr(i, 1)
        If Not d.exists(t) Then
            n = n + 1
            d(t) = n
            brr(n, 1) = arr(i, 1)
            brr(n, 2) = arr(i, 3)
        Else
            m = d(t)
            brr(m, 2) = brr(m, 2) & "," & arr(i, 3)
        End If
    Next
    [h4].Resize(UBound(brr), 2) = brr
End Sub

gerardpique

泊蓝 发表于 2019-6-27 11:12
365函数：=TEXTJOIN(",",,C4:C65)

没有365哭了

gerardpique

约定的童话 发表于 2019-6-27 11:18
Sub 汇总()
    Dim i, n, arr, brr, d As Object
    Set d = CreateObject("scripting.dictionary")
...

谢谢，这个可以有。很厉害，我刚入门一点点儿，有没有公式或者透视表可以搞定的方法呢？

约定的童话

gerardpique 发表于 2019-6-27 11:21
谢谢，这个可以有。很厉害，我刚入门一点点儿，有没有公式或者透视表可以搞定的方法呢？

函数对版本有要求，透视可以实现，前提是你得会啊

gerardpique

约定的童话 发表于 2019-6-27 11:26
函数对版本有要求，透视可以实现，前提是你得会啊

16版本的EXCEL，透视表还有基本的函数有所了解，只是到实际解决问题，就有些晕。哈哈

约定的童话

gerardpique 发表于 2019-6-27 11:28
16版本的EXCEL，透视表还有基本的函数有所了解，只是到实际解决问题，就有些晕。哈哈

那就用我发你的代码就好了

ggmmlol

gerardpique 发表于 2019-6-27 11:21
谢谢，这个可以有。很厉害，我刚入门一点点儿，有没有公式或者透视表可以搞定的方法呢？

一、想用公式，必须要有TEXTJOIN函数，（2019版和365版内置了该函数，其他版本需要用VBA自定义一个）；
二、用PQ也可以的。

三、用透视表是搞不定这个问题的
除了方法一、二，还有万能的手工大法。