小白看“蓝桥玄霜”老师的实例学字典

renahu

蓝桥玄霜 发表于 2014-8-17 10:55
转置后的数组arr2是一维数组，但是一维数组也可以任意指定起始下标的，比如可以声明：arr(3 to 16)
在没有 ...

老师您好，我在本地窗口查看字典，怎么只能看到关键字，却看不到对应的项？

小花鹿

renahu 发表于 2014-8-17 11:13
呵呵，本来学字典，现在先学学数组

字典和数组是两口子。

renahu

小花鹿 发表于 2014-8-30 20:51
字典和数组是两口子。

呵呵，我说呢，想问一下：本地窗口查看字典，为什么看不到关键字对应的项？

qqwwhh123

学习中，。。。。

蓝桥玄霜

renahu 发表于 2014-8-30 21:13
呵呵，我说呢，想问一下：本地窗口查看字典，为什么看不到关键字对应的项？

要有赋值语句：
k=d.keys:t=d.items
可查看t 了。

renahu

蓝桥玄霜 发表于 2014-8-31 09:01
要有赋值语句：
k=d.keys:t=d.items
可查看t 了。

谢谢老师，您再帮看看：求助数组高手帮我把这几张英语单词表中的单词改变排列顺序
http://club.excelhome.net/thread-1149035-1-1.html 奇怪，这里面为什么会出现重复？

renahu

蓝桥玄霜 发表于 2014-8-16 16:12
如果是一维数组，因为最小下标是0，则数组的总数是ubound(arr)+1
这里是二维数组，下标是从1开始的，所以不 ...

老师，在本地窗口中，字典怎么只能看到256个item呀？总共一万多个呢

一只狗三只眼

jiminyanyan 发表于 2014-8-16 15:37
arr = WorksheetFunction.Transpose(Filter(dic.keys, "@"))
你可以调试一下，到这里后下标是1。。。。。 ...

看得一头雾水，有教程吗？

小鸟飞在天上

蓝桥玄霜 发表于 2014-8-16 16:12
如果是一维数组，因为最小下标是0，则数组的总数是ubound(arr)+1
这里是二维数组，下标是从1开始的，所以不 ...

老师好;附件这个你看能用字典嵌套做不，另外我想问下一般什么情况适合用字典嵌套-谢谢老师了 --纯属研究学习--谢谢了

一直感觉字典嵌套比较神奇--谢谢了

蓝桥玄霜

这个问题只需要一个字典即可解决。
字典套字典也是可以做的。

1. Sub lqxs()
   
2. Dim Arr, i&, x$, y$, j&, jj&, Brr(1 To 5000, 1 To 3)
   
3. Dim d, k, t, kk, tt, aa, n&
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. Sheet2.Activate
   
6. Arr = [a1].CurrentRegion
   
7. For i = 2 To UBound(Arr)
   
8.     x = Arr(i, 1): y = Arr(i, 2)
   
9.     If d.exists(x) = False Then Set d(x) = CreateObject("Scripting.Dictionary")
   
10.     d(x)(y) = d(x)(y) + Arr(i, 3)
    
11. Next
    
12. k = d.keys: t = d.items
    
13. For i = 0 To UBound(k)
    
14.     kk = t(i).keys: tt = t(i).items
    
15.     For j = 0 To UBound(kk)
    
16.         tt(j) = Left(tt(j), Len(tt(j)) - 1)
    
17.         If InStr(tt(j), ",") Then
    
18.             aa = Split(tt(j), ",")
    
19.             For jj = 0 To UBound(aa)
    
20.                 n = n + 1
    
21.                 Brr(n, 1) = k(i): Brr(n, 2) = kk(j): Brr(n, 3) = aa(jj)
    
22.             Next
    
23.         Else
    
24.             n = n + 1
    
25.             Brr(n, 1) = k(i): Brr(n, 2) = kk(j): Brr(n, 3) = tt(j)
    
26.         End If
    
27.     Next
    
28. Next
    
29. [f2].Resize(n, 3) = Brr
    
30. End Sub
    

复制代码