关于VBA数组里套用字典的示例

兰色幻想 · 发表于 2010-12-1 22:10

在进行汇总或多列取得唯一值时，有时我们需要同时使用多个字典，而且有时字典的个数还未定，这时我们就可以把数组定义为字典。

如下图所示：

要求同时获取每一列的唯一值，这里我们用数组也可以，但下面我们用多个字典同时提取唯一值的代码：

代码：Sub da()
Dim arr() As New Dictionary ''声明数组为字典类型，即这个数组内每个元素都是一个字典对象
Dim arr1
arr1 = Range("a1").CurrentRegion
ReDim arr(1 To UBound(arr1, 2)) As New Dictionary '根据列数确定数组内字典的个数
For x = 2 To UBound(arr1)
   For y = 1 To UBound(arr)
     arr(y)(arr1(x, y)) ="" '第一列装入第一个字典内，第二列装入第二个字典内。。。
   Next y
Next x
Stop
End Sub

[此贴子已经被作者于2010-12-1 22:14:18编辑过]

acbs · 发表于 2010-12-1 22:17

学习了。

搁浅2008 · 发表于 2010-12-1 22:31

收藏  受益匪浅啊[em01]

E-H-P · 发表于 2010-12-1 23:05

学习了.

确实受益匪浅啊

[em01][em01]

帅 · 发表于 2010-12-1 23:44

谢谢兰版[em23]

fjmxwrs · 发表于 2010-12-2 00:18

QUOTE:

以下是引用帅在2010-12-1 23:44:00的发言：
谢谢兰版[em23]

支持师傅

hhzjxss · 发表于 2010-12-2 00:33

呵呵，兰版又了出手了，学习学习！[em01]

花妖 · 发表于 2010-12-2 06:53

学习了

amulee · 发表于 2010-12-2 08:40

学习了

[em02]

a785378066 · 发表于 2011-2-14 16:00

{:1112:}{:3512:}收藏了

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

[分享] 关于VBA数组里套用字典的示例