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

qldd

慢慢学习，感觉好难

xiahuaxian

占位，学习

灯火阑珊888

学习学习。。。。。。。。。。

jsgj2023

占位学习，谢谢老师的分享。

Aren-1983

我来学习！！感谢老师分享~~

dyp1610

好帖，做个标记，有空好好琢磨。

lele400024

香川群子 发表于 2014-9-25 15:04
字典Item项目的数组用法、以及结果的输出方式：

Sub DicTest2()

如果item写入的数组不单是数值，而是文字和数字的组合；
另外，key中有重复值，如何实现文字叠加排放，数字累加求和。

数据如下
    A  列           B 列              C 列           D 列

1	A	1	100
1	B	2	200
2	C	3	300
2	D	4	400
5	E	5	500

待补充代码

1. Sub DicTest2()
   
2.       ar=[a1].currentregion
   
3.     Set dic = CreateObject("Scripting.Dictionary") 'use Dictionary
   
4.     For i = 1 To ubound(ar)
   
5.         dic(i) = Array(ar(I,2),ar(I,3), ar(I,4) '把数组作为Item项目写入字典,如果有重复值，应该怎么办
   
6.                                                              ’要求是，如果是文本，则用&chr(10)&连接；如果是数字，则累加
   
7.     Next
   
8.     [a1].CurrentRegion = ""
   
9.     [a1].Resize(dic.Count) = WorksheetFunction.Transpose(dic.Keys) 'Output keys result
   
10.     [b1].Resize(dic.Count, 3) = Application.Rept(dic.items, 1)   
    
11. End Sub
    

复制代码

实现效果如下

1	A B	3	300
2	C D	7	700
5	E	5	500

香川群子

lele400024 发表于 2016-7-9 09:31
如果item写入的数组不单是数值，而是文字和数字的组合；
另外，key中有重复值，如何实现文 ...

自己抄一下代码吧，不要抄错了！

lele400024

香川群子 发表于 2016-7-9 14:10
自己抄一下代码吧，不要抄错了！

谢谢，很棒的思路，才学习数组，只会基本的，继续向你学习。

lele400024

香川群子 发表于 2016-7-9 14:10
自己抄一下代码吧，不要抄错了！

昨天回去仔细研究了你给的思路，
然后我又想到了一个问题 提问20060710.rar (33.44 KB, 下载次数: 20)

2016-7-10 09:49 上传

点击文件名下载附件

已写完的代码在附件里面

原始数据如下：

类别一	类别二	类别三	类别四	类别五	类别六
一	apple	10	300	A	Ⅰ
一	panda	20	400	B	Ⅱ
二	Tv	30	250	B	Ⅱ
二	panda	40	150	C	Ⅲ
三	apple	51	240	D	Ⅳ
四	house	62	230	E	Ⅳ
四	panda	30	160	C	Ⅳ

实现效果如下：

	A	B	C	D	E	类别三	类别四	类别六	类别三*10+类别四	汇总
一	apple					10	300	Ⅰ	400	3610
一		panda				20	400	Ⅱ	600
二		Tv				30	250	Ⅱ	550
四			panda		house	92	390	Ⅳ	1310
三				apple		51	240	Ⅳ	750

可以用昨天你给的思路得到第一列，第七列，第八列等横向的，但是，A B C D E下面的类别二是不是又要参考字典嵌套来做，具体应该如何写代码呢，请老师指教。