excel怎么合并同类项数据并用逗号分隔符分开
excel怎么合并同类项数据并用逗号分隔符分开
1、打开需要操作的excel表格，A列有重复的姓名，需要将A列数据去除重复值，并且将B列的同一个人的数量合并在一个单元格里并用逗号分开。
2、将AB列的抬头复制到CD列，便于区分。
3、按快捷键【Alt+F11】进入VBE界面。
4、依次选择【插入】——【模块】。
5、如图：在插入的模块窗口输入以下代码：
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
6、返回excel界面，依次点击【开发工具】——【插入】，选择插入一个按钮。
7、用鼠标左键在工作表中画出一个按钮，在弹出的【指定宏】的窗口将【宏名】设为刚才插入的【宏】，如这里设置【宏名】为【yy】，点击【确定】。
8、如图：点击按钮就可以完成合并的过程。
你可能想看：