用字典嵌套统计

liuninglook · 发表于 2016-12-6 14:13

标记学习

02761752696 · 发表于 2017-11-14 13:29

学习谢谢分享

LMY123 · 发表于 2018-7-5 15:44

字典嵌套，d(arr(i, 1))(arr(1, j)) = d(arr(i, 1))(arr(1, j)) + arr(i, j)

zouhy0442 · 发表于 2018-9-12 00:18

楼主的好帖子，顶起来！！！

酷似内涵 · 发表于 2018-10-14 00:24

Sub Macro122()
Dim Arr(), brr, crr, i&, j&, t
Dim d As New Dictionary
Arr = Range("a1").CurrentRegion '原始数据
brr = Range("a15").CurrentRegion '目标数据
For i = 1 To UBound(Arr)
If d.Exists(Arr(i, 1)) Then
For k = 2 To 6
d(Arr(i, 1))(k) = d(Arr(i, 1))(k) + Arr(i, k)
Next k
Else
d(Arr(i, 1)) = Application.Index(Arr, i)
End If
Next
Range("a25").Resize(UBound(crr), UBound(crr, 2)) = Application.Transpose(Application.Transpose(d.Items))
End Sub

复制代码

凑个热闹

ardu95 · 发表于 2018-10-14 07:33

学习谢谢分享

blackttea1 · 发表于 2018-10-15 13:55

学习 , 谢谢分享!

cui26896 · 发表于 2019-9-28 09:46

香川群子发表于 2013-5-4 11:56
显然楼主对字典的用法虽然已经入门，但理解还不够深刻。

提醒你【字典的特点】

VBA的经典，川香老师的精彩解说，大侠们的全力投入，都在10一14年这个阶段。

fxl447098457 · 发表于 2019-9-28 09:49

cui26896 发表于 2019-9-28 09:46
VBA的经典，川香老师的精彩解说，大侠们的全力投入，都在10一14年这个阶段。

确实啊。那时候是巅峰。

陈功 · 发表于 2019-9-28 11:49

学习 , 谢谢分享!

		自动登录	找回密码
密码			免费注册

[讨论] 用字典嵌套统计