【无标题】

汇总数据,按照类型合并数据@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编辑器
相关推荐
胚芽鞘68130 分钟前
关于java项目中maven的理解
java·数据库·maven
nbsaas-boot1 小时前
Java 正则表达式白皮书:语法详解、工程实践与常用表达式库
开发语言·python·mysql
岁忧1 小时前
(LeetCode 面试经典 150 题 ) 11. 盛最多水的容器 (贪心+双指针)
java·c++·算法·leetcode·面试·go
chao_7891 小时前
二分查找篇——搜索旋转排序数组【LeetCode】两次二分查找
开发语言·数据结构·python·算法·leetcode
CJi0NG1 小时前
【自用】JavaSE--算法、正则表达式、异常
java
风无雨2 小时前
GO 启动 简单服务
开发语言·后端·golang
Hellyc2 小时前
用户查询优惠券之缓存击穿
java·redis·缓存
斯普信专业组2 小时前
Go语言包管理完全指南:从基础到最佳实践
开发语言·后端·golang
今天又在摸鱼2 小时前
Maven
java·maven
老马啸西风2 小时前
maven 发布到中央仓库常用脚本-02
java·maven