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

原始数据如下，A列包含重复的姓名，B列是对应的不同数量或者说型号。需要将A列数据去除重复值，并且将B列的同一个人的数量合并在一个单元格里并用逗号分开。

将AB列的抬头，复制到CD列。

按Alt+F11进入VBE界面。

选择【插入】-【模块】插入一个模块。

在模块空白处粘贴下列代码：Sub yy()    Dim Arr, i&, d, Myr&    Set d = CreateObject('Scripting.Dictionary')    [c2:d65535].Clear    Myr = [a65536].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) = Application.Transpose(t)End Sub

返回excel界面，点击【开发工具】，插入一个按钮。

用鼠标左键在工作表中画出一个按钮，并指定宏至刚才插入的宏。

点击按钮就可以完成合并的过程。

如果您觉得此经验有用，可以点击本页面右上方的【大拇指】图案和【收藏按钮】或者右下方的【分享】按钮，也可以点击本注意事项下方的【收藏】按钮。