[分享]浅谈DICTIONARY(字典)对象

northwolves

这个效果:

Sub MACRO1()
[A1:A100] = "=ROW()"
MsgBox Join(Filter(WorksheetFunction.Transpose([A1:A100].Value), 3), ",")
[A1:A100] = ""
End Sub

maillgh

多谢分享

qygszlb

没板凳了,站在冷雨中听完讲座,差点成了化石.精彩的帖子死了也要看!

E初学者

支持！如果我有版主百分之一的水平多好......

willin2000

卧铺肯定论不上了, 再晚估计坐票也没了.

谢谢狼兄的详解.

hyy514

大量数据下，字典的高效简直让人热血澎湃，再次谢谢版主奉献，反复拜读中！！

clark

有些日子不来了，刚刚看到，十分感谢狼版！一定好好学习，不辜负版主的辛劳！再谢

wsri

Dim a, d, i            

Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"    
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
这样If  .exists("a") Then d.keys 取的是一个集合，我想得到和关键字"a"对应的条目"Athens"应该怎么写！也就是说我想通过关键字取的其所对应的条目，就是一对一。

If  .exists("a") Then ？怎么写得到"Athens"
         

northwolves

QUOTE:

以下是引用wsri在2007-9-23 20:08:30的发言：

Dim a, d, i            

Set d = CreateObject("Scripting.Dictionary")

  d.Add "a", "Athens"    
d.Add "b", "Belgrade"

  d.Add "c", "Cairo"
这样If  .exists("a") Then d.keys 取的是一个集合，我想得到和关键字"a"对应的条目"Athens"应该怎么写！也就是说我想通过关键字取的其所对应的条目，就是一对一。

If  .exists("a") Then ？怎么写得到"Athens"
         

Sub macro1()
Dim d As Object
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
If d.exists("a") Then MsgBox d("a")
End Sub

wsri

非常感谢！无以言表，努力学习，回报论坛！