字典基本语句、以及中级字典运用例子

lele400024 · 发表于 2016-7-10 12:42

本帖最后由 lele400024 于 2016-7-10 14:11 编辑

香川群子发表于 2016-7-10 11:28
你这个题目要求的结果分类逻辑混乱，已经没意义了。

我可能是没有表述清楚，我有一个实际案例，数据结构是基本一样的，我上传附件，麻烦你看看，谢谢

提问20060710.rar (33.44 KB, 下载次数: 28)
原始数据
图像 1.png

实现效果

部分代码如下，

Sub 汇总()
Dim i, j, arr, dic As Object, u, temp
j = Sheet10.[a65536].End(3).row
ar = Sheet10.Range("A2:g" & j)
Set dic = CreateObject("Scripting.Dictionary")
ReDim temp(1 To 10000, 1 To 12)
For i = 1 To UBound(ar)
If Not dic.exists(ar(i, 6) & ar(i, 1)) Then
k = k + 1: dic(ar(i, 6) & ar(i, 1)) = k
temp(k, 1) = ar(i, 1)
temp(k, 9) = ar(i, 3)
temp(k, 10) = ar(i, 4)
temp(k, 12) = ar(i, 6)
temp(k, 11) = temp(k, 9) + Int(temp(k, 10) / 60) & "小时" & temp(k, 10) Mod 60 & "分钟"
Else
u = dic(ar(i, 6) & ar(i, 1))
temp(u, 9) = temp(u, 9) + ar(i, 3)
temp(u, 10) = temp(u, 10) + ar(i, 4)
temp(u, 11) = (temp(u, 9) + Int(temp(u, 10) / 60)) & "小时" & temp(u, 10) Mod 60 & "分钟"
End If
Next
Sheet2.[a1].Resize(k, 12) = temp
Set dic = Nothing
End Sub

复制代码

葡月荞麦 · 发表于 2016-7-27 15:38

实用，感谢！

晕了^快跑^ · 发表于 2016-8-29 12:57

dic(i)=Array(a,b,c,d,e,f,g)

a1 = dic(i)(0)
a2 = dic(i)(1)
.......
这种是什么原理呢？求大侠解释下。

WUHANNKY · 发表于 2016-10-8 14:49

居EXCELHOME,与智慧同行!!!

cicnmg · 发表于 2016-10-8 17:53

好帖子，顶起来

pinda · 发表于 2016-10-11 22:37

听课来了。谢谢老师

春播秋收 · 发表于 2016-10-24 22:04

学到了不少东西,谢谢.

zgzxp · 发表于 2016-12-14 21:41

收藏，学习一下字典嵌套

nanshanke11 · 发表于 2016-12-31 23:37

简单明了，重点突出，好文，学习了

wormtwo · 发表于 2017-1-1 11:10

致敬字典用法!

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

[分享] 字典基本语句、以及中级字典运用例子