合并同类项

很多人都有这个需求

想把同类的合起来

如上期图

举个类似例子

大家随便看看哈

有用就是最好的

代码：

Sub 组合()

    Dim arr, i

    Dim dic As New Dictionary

    arr = Range('A1').CurrentRegion

    For i = 2 To UBound(arr)

        If Not dic.Exists(arr(i, 1)) Then

            dic(arr(i, 1)) = arr(i, 2)

        Else

            dic(arr(i, 1)) = dic(arr(i, 1)) & '、' & arr(i, 2)

        End If

    Next

    [D1].Resize(1, 2) = Array('类型', '颜色')

    [D2].Resize(dic.Count, 1) = Application.Transpose(dic.Keys)

    [E2].Resize(dic.Count, 1) = Application.Transpose(dic.Items)

End Sub

操作简单才是硬道理！ 

函数七天

即将开课