excel中第一列相同，合并第2列中相应单元格内容，并用顿号隔开

最新推荐文章于 2023-06-15 10:53:39 发布

一蓑烟雨紫洛

最新推荐文章于 2023-06-15 10:53:39 发布

阅读量3.8k

点赞数 3

分类专栏： VBA 文章标签： vba

本文链接：https://blog.csdn.net/weixin_34280060/article/details/118762072

版权

VBA 专栏收录该内容

10 篇文章 1 订阅

订阅专栏

这篇博客介绍了一个VBA宏代码，用于处理Excel数据。代码能够将具有相同表名的数据行进行合并，使用逗号分隔。通过创建Dictionary对象，遍历并汇总数据，最终在新的列中展示结果，简化了大量重复数据的管理工作。

摘要由CSDN通过智能技术生成

需求：数据表名这列相同的表，汇总数据要素，并以、隔开
在这里插入图片描述
效果

实现代码：

Sub test()
Application.ScreenUpdating = False
n = 1
Set d = CreateObject("scripting.dictionary")
arr = [a1].CurrentRegion
For i = 1 To UBound(arr)
    d(arr(i, 1)) = d(arr(i, 1)) & arr(i, 2) & "、"
Next
[e1].Resize(d.Count) = Application.Transpose(d.keys)
cnt = d.Count
k = d.items
d.RemoveAll
For j = 0 To cnt
On Error Resume Next
 
    brr = Split(k(j), ",")
    For m = 0 To UBound(brr)
        d(brr(m)) = ""
    Next
    Cells(n, "f") = Join(d.keys, ",")
    Cells(n, "F") = Left(Cells(n, "f"), Len(Cells(n, "f")) - 1)
       n = n + 1
    d.RemoveAll
Next
Cells(Rows.Count, "F").End(3).Delete
Application.ScreenUpdating = False
End Sub