【无标题】

汇总数据,按照类型合并数据@TOC

java 复制代码
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# 欢迎使用Markdown编辑器
相关推荐
丶小鱼丶几秒前
链表算法之【合并两个有序链表】
java·算法·链表
沉默媛17 分钟前
如何安装python以及jupyter notebook
开发语言·python·jupyter
张先shen29 分钟前
Elasticsearch RESTful API入门:全文搜索实战(Java版)
java·大数据·elasticsearch·搜索引擎·全文检索·restful
_Chipen1 小时前
C++基础问题
开发语言·c++
天河归来1 小时前
springboot框架redis开启管道批量写入数据
java·spring boot·redis
止观止1 小时前
JavaScript对象创建9大核心技术解析
开发语言·javascript·ecmascript
张先shen1 小时前
Elasticsearch RESTful API入门:全文搜索实战
java·大数据·elasticsearch·搜索引擎·全文检索·restful
codervibe1 小时前
如何用 Spring Security 构建无状态权限控制系统(含角色菜单控制)
java·后端
codervibe2 小时前
项目中如何用策略模式实现多角色登录解耦?(附实战代码)
java·后端
TCChzp2 小时前
synchronized全链路解析:从字节码到JVM内核的锁实现与升级策略
java·jvm