【无标题】

汇总数据,按照类型合并数据@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编辑器
相关推荐
new_daimond1 分钟前
二级缓存在实际项目中的应用
java
一只乔哇噻8 分钟前
java后端工程师进修ing(研一版 || day41)
java·开发语言·学习·算法
钮钴禄·爱因斯晨18 分钟前
深入剖析LLM:从原理到应用与挑战
开发语言·人工智能
User_芊芊君子27 分钟前
【Java】设计模式——单例、工厂、代理模式
java·设计模式·代理模式
六点半88834 分钟前
【C++】C++11 篇二
开发语言·c++
2301_8035545235 分钟前
正向代理,反向代理,负载均衡还有nginx
java·nginx·负载均衡
要开心吖ZSH37 分钟前
软件设计师备考-(十六)数据结构及算法应用(重要)
java·数据结构·算法·软考·软件设计师
DDDDDDDRDDR41 分钟前
C++容器:list
开发语言·c++·stl
向上的车轮1 小时前
基于Java Spring Boot的云原生TodoList Demo 项目,验证云原生核心特性
java·spring boot·云原生
Elnaij1 小时前
从C++开始的编程生活(7)——取地址运算符重载、类型转换、static成员和友元
开发语言·c++