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

香川群子

lele400024 发表于 2016-7-10 09:00
昨天回去仔细研究了你给的思路，
然后我又想到了一个问题
已写完的代码在附件里面

你这个题目要求的结果分类逻辑混乱，已经没意义了。

lele400024

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

我可能是没有表述清楚，我有一个实际案例，数据结构是基本一样的，我上传附件，麻烦你看看，谢谢 提问20060710.rar (33.44 KB, 下载次数: 28)

2016-7-10 12:41 上传

点击文件名下载附件

原始数据



实现效果

部分代码如下，

1. Sub 汇总()
   
2.     Dim i, j, arr, dic As Object, u, temp
   
3.     j = Sheet10.[a65536].End(3).row
   
4.     ar = Sheet10.Range("A2:g" & j)
   
5.     Set dic = CreateObject("Scripting.Dictionary")
   
6.     ReDim temp(1 To 10000, 1 To 12)
   
7.     For i = 1 To UBound(ar)
   
8. 
   
9.                 If Not dic.exists(ar(i, 6) & ar(i, 1)) Then
   
10.                     k = k + 1: dic(ar(i, 6) & ar(i, 1)) = k
    
11.                          temp(k, 1) = ar(i, 1)
    
12.                          temp(k, 9) = ar(i, 3)
    
13.                          temp(k, 10) = ar(i, 4)
    
14.                          temp(k, 12) = ar(i, 6)
    
15.                          temp(k, 11) = temp(k, 9) + Int(temp(k, 10) / 60) & "小时" & temp(k, 10) Mod 60 & "分钟"
    
16. 
    
17.                 Else
    
18.                     u = dic(ar(i, 6) & ar(i, 1))
    
19.                     temp(u, 9) = temp(u, 9) + ar(i, 3)
    
20.                     temp(u, 10) = temp(u, 10) + ar(i, 4)
    
21.                     temp(u, 11) = (temp(u, 9) + Int(temp(u, 10) / 60)) & "小时" & temp(u, 10) Mod 60 & "分钟"
    
22.                 End If
    
23. 
    
24.     Next
    
25.     Sheet2.[a1].Resize(k, 12) = temp
    
26.     Set dic = Nothing
    
27.                         
    
28. End Sub

复制代码

葡月荞麦

实用，感谢！

晕了^快跑^

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

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

WUHANNKY

居EXCELHOME,与智慧同行!!!

cicnmg

好帖子，顶起来

pinda

听课来了。谢谢老师

春播秋收

学到了不少东西,谢谢.

zgzxp

收藏，学习一下字典嵌套

nanshanke11

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