字典四级嵌套，相信很多人没用过

chxw68

鲜橙加冰 发表于 2014-6-9 09:32
没有你说的那个啊

没错，就在“工具-附加控件”里。

office8424

按照这个思路是不是字典可以无限嵌套下去?????值得思考!!!

百度不到去谷歌

做层级结构确实字典嵌套比较好用
字典嵌套加递归的话 不止四级了 可以N级
[原创]递归实现完美版N级级联菜单,自动去重,自适应级数
http://club.excelhome.net/thread-1102771-1-1.html

yaozong

谢谢分享。。。

liuxingcsu

牛，犀利哥

453563050

老师看了你的字典嵌套很有感触，有个问题想请教下：
这个嵌套程序可否灵活应用？
比如有3个字段 A B C 那么自动嵌套3次
如果有4个字段 A B C D 那么自动嵌套4次

可否用迭代的方法写呢? 期望老师的回复~~谢谢

sdong7

楼主，两级字典嵌套我不怎么理解？
用普通字典编写一个

sdong7

1. Sub tt() 'by sdong7 20141206
   
2. Dim arr, dic, larr(1 To 10000, 1 To 3)
   
3. Dim roc, coc As Integer
   
4. Set dic = CreateObject("scripting.dictionary")
   
5. 
   
6. Sheets("数据源").Range("A1").Select
   
7. Selection.CurrentRegion.Select
   
8. With Selection
   
9. roc = .Rows.Count
   
10. coc = .Columns.Count
    
11. End With
    
12. arr = Range(Cells(1, 1), Cells(roc, coc))
    
13. For j = 1 To coc - 1 Step 2
    
14. For i = 2 To roc
    
15. If arr(i, j) <> "" Then
    
16. If dic.Exists(arr(1, j) & arr(i, j)) Then
    
17. ha = dic(arr(1, j) & arr(i, j))
    
18. 
    
19. larr(ha, 3) = arr(i, j + 1) + larr(ha, 3)
    
20. 
    
21. Else
    
22. k = k + 1
    
23. dic(arr(1, j) & arr(i, j)) = k
    
24. larr(k, 1) = arr(1, j)
    
25. larr(k, 2) = arr(i, j)
    
26. larr(k, 3) = arr(i, j + 1)
    
27. 
    
28. End If
    
29. End If
    
30. Next i
    
31. Next j
    
32. Sheets("结果").[a18].Resize(k, 3) = larr
    
33. 
    
34. End Sub
    

复制代码

sdong7

穿上附件！！！！！！

品瑶

chxw68 发表于 2013-11-28 08:49
再提供一个两级字典嵌套的例子，很能说明字典嵌套用法的必要性，在个别情况下，使用字典能能够达到事半功倍 ...

d(d.Keys()(j)).Items，这其中keys后面的空（）号是什么意思，好像少了还不行，看不懂，还望老师释疑，十分感谢！！