excel怎么合并同类项数据并用逗号分隔符分开。

excel怎么合并同类项数据并用逗号分隔符分开?有需要的朋友快来学习了。

材料/工具

excel

方法

打开需要操作的excel表格,A列有重复的姓名,需要将A列数据去除重复值,并且将B列的同一个人的数量合并在一个单元格里并用逗号分开。

将AB列的抬头复制到CD列,便于区分。

按快捷键【Alt+F11】进入VBE界面。

依次选择【插入】——【模块】。

如图:在插入的模块窗口输入以下代码:

Sub yy()

    Dim Arr, i&, d, Myr&

    Set d = CreateObject("Scripting.Dictionary")

    [c2:d65535].Clear

    Myr = [a6553国市重怎艺仍6].End(xlUp).Row

    Arr = Range("a1:c" & Myr)

    For i = 2 To UBound(Arr)

        If Not d.exists(Arr(i, 1)) Then

            d(Arr(i, 1)) = Arr(i, 2)

        Else

            d(Arr(i, 1)) = d(Arr(i, 1)) & "," & Arr(i, 2)

        End If

    Next

 

    k = d.keys

    t = d.items

 

    [c2].Resize(d.Count, 1) = Application.Transpose(k)

    [d2].Resize(d.Count, 1) = Applic米脸月胶水从来子ation.Transpose(t)

End Sub

返回excel界面,依次点击【开发工具】——【插入】,选择插入一个按钮。

用鼠标左键在工作表中画出一个按钮,在弹出的【指定宏】的窗口将【宏名】设为刚才插入的【宏】,如这里设置【宏名】为【yy】,点击【确定】。

如区赶完宗末物却研图犯密图:点击按钮就可以完成合并的过程。