Excel如果A列的数值相同,则把B列的数值合并

1、打开任意Excel工作簿,右键单击任意sheet,点击查看代码打开Excel宏编辑器.

2、复制粘贴如下代码至编辑器:

Sub 去重合并()

arr = Worksheets("sheet1").Range("D2:Z65536").Clear

arr = Worksheets("sheet1").UsedRange

Set d = CreateObject("Scripting.Dictionary")

ReDim brr(1 To UBound(arr), 2)

For n = 2 To UBound(arr)

s = arr(n, 1)

If d(s) = 0 Then

j = j + 1

d(s) = j

brr(j, 1) = arr(n, 1)

End If

If brr(d(s), 2) = "" Then

brr(d(s), 2) = arr(n, 2)

Else

brr(d(s), 2) = brr(d(s), 2) & "\" & arr(n, 2)

End If

Next

Worksheets("sheet1").[D2].Resize(UBound(brr), 1) = Application.Index(brr, 0, 2)

Worksheets("sheet1").[E2].Resize(UBound(brr), 1) = Application.Index(brr, 0, 3)

End Sub

3、切换回工作表界面依次点击开发工具---插入---按钮(窗体控件)  插入一个宏按钮

4、右键单击宏按钮选择指定宏...  选择去重合并宏并点击确定.

5、在工作表界面单击插入的宏按钮即可看到D列为A列去重后的数据,E列为B列合并后以"\"隔开的数据.