作者：乔山办公网日期：
返回目录：excel表格制作
i=d(Rng) 两句话都没有用，你也知说了，删掉也正常运行。
另外，除了这两句，其他地方都没有道再出现i，也说明没有用
d(Rng)=d(Rng)+1
因为Rng是B列，d(Rng)相当于 d(Rng.Value), 也就是 d("牛三斤") 这样的，d是字典，这就是 设置字典的关键字 “牛回三斤” 的值，第一次出现时 值=0+1=1，第二次值=1+1=2……这答就实现了计数功能。
字典（Dictionary）对象是微软Windows脚本语言中的7a64e78988e69d83338一个很有用的对象。
以下为字典相关知识的介绍：
凡是上过学校的人都使用过字典，从新华字典、成语词典，到英汉字典以及各种各样数不胜数的专业字典，字典是上学必备的、经常查阅的工具书。有了它们，我们可以很方便的通过查找某个关键字，进而查到这个关键字的种种解释，非常快捷实用。
字典对象只有4个属性和6个方法，相对其它的对象要简洁得多，而且容易理解使用方便，功能强大，运行速度非常快，效率极高。深受大家的喜爱。
字典的简介
字典（Dictionary）对象是微软Windows脚本语言中的一个很有用的对象。
附带提一下，有名的正则表达式（RegExp）对象和能方便处理驱动器、文件夹和文件的（FileSystemObject ）对象也是微软Windows脚本语言中的一份子。
字典对象相当于一种联合数组，它是由具有唯一性的关键字（Key）和它的项（Item）联合组成。就好像一本字典书一样，是由很多生字和对它们对应的注解所组成。比如字典的“典”字的解释是这样的：
“典”字就是具有唯一性的关键字，后面的解释就是它的项，和“典”字联合组成一对数据。
常用关键字英汉对照：
Dictionary 字典
Key 关键字
Item 项，或者译为 条目
字典对象的方法有6个：Add方法、Keys方法、Items方法、Exists方法、Remove方法、RemoveAll方法。
Add方法
向 Dictionary 对象中添加一个关键字项目对。
object.Add (key, item)
参数
object
必选项。总是一个 Dictionary 对象的名称。
key
必选项。与被添加的 item 相关联的 key。
item
必选项。与被添加的 key 相关联的 item。
说明
如果 key 已经存在，那么将导致一个错误。
相关链接：http://club.excelhome.net/thread-868892-1-1.html
很简单百第一种方式是把代表第一列每个单元格的 range对象加入到字典了，字典中存放的是一个引用 ，当文件关闭，range对象就不存在了。这度时字典还有内存中，但是回保存的东西全部成了 nothing第二种方式，你是把单元格的值转换成字符串存放入字典答，字典中存放的是一个值，就与文件没有关系了
可以理解为百一种高级数组，下标可度以是字符串，例子代码：问
option explicit
Function 获取唯一清单答(ByRef rng As Range) As String
Dim t As Range
Dim db As Object, s$
Set db = CreateObject("Scripting.Dictionary")
For Each t In rng.Cells
s = Trim(t.Value)
db(s) = True
Next t
s = Join(db.Keys, ",")
Set db = Nothing
获取唯一清单 = s
End Function
利用这个函数可以获得回某区域内不重复的内容清单到一个答单元格里面。