【无标题】

汇总数据,按照类型合并数据@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编辑器
相关推荐
爱吃烤鸡翅的酸菜鱼12 分钟前
IDEA高效开发:Database Navigator插件安装与核心使用指南
java·开发语言·数据库·编辑器·intellij-idea·database
惊涛骇浪、18 分钟前
SpringMVC + Tomcat10
java·tomcat·springmvc
墨染点香31 分钟前
LeetCode Hot100【6. Z 字形变换】
java·算法·leetcode
心情好的小球藻1 小时前
Python应用进阶DAY9--类型注解Type Hinting
开发语言·python
ldj20201 小时前
SpringBoot为什么使用new RuntimeException() 来获取调用栈?
java·spring boot·后端
超龄超能程序猿1 小时前
Spring 应用中 Swagger 2.0 迁移 OpenAPI 3.0 详解:配置、注解与实践
java·spring boot·后端·spring·spring cloud
惜.己1 小时前
使用python读取json数据,简单的处理成元组数组
开发语言·python·测试工具·json
风象南1 小时前
SpringBoot配置属性热更新的轻量级实现
java·spring boot·后端
洛阳泰山1 小时前
Spring Boot 整合 Nacos 实战教程:服务注册发现与配置中心详解
java·spring boot·后端·nacos
Y4090011 小时前
C语言转Java语言,相同与相异之处
java·c语言·开发语言·笔记