订阅Excel如果A列的数值相同,则把B列的数值合并
来源：网络收集 点击： 时间：2024-03-30打开任意Excel工作簿,右键单击任意sheet,点击查看代码打开Excel宏编辑器.
2/5复制粘贴如下代码至编辑器:
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)..Resize(UBound(brr), 1) = Application.Index(brr, 0, 2)
Worksheets(sheet1)..Resize(UBound(brr), 1) = Application.Index(brr, 0, 3)
End Sub
3/5切换回工作表界面依次点击开发工具---插入---按钮(窗体控件) 插入一个宏按钮
4/5右键单击宏按钮选择指定宏... 选择去重合并宏并点击确定.
5/5在工作表界面单击插入的宏按钮即可看到D列为A列去重后的数据,E列为B列合并后以\隔开的数据.
注意事项纯属个人学习经验,分享一下
EXCELA列去重B列合并去重版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_379886.html
