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、如图：点击按钮就可以完成合并的过程。