一 什么是字典
字典就是一个储存数据的小仓库，共有两列。第一列Key,不允许有重复的元素，第二列是item，每一个key对应一个item，item列允许重复。
数组和字典的区别，1：A列只能装入非重复的因素，利用这个特点可以很方便的提取不重复的值。2：每一个Key对应唯一的item，只要指定key的值就可以马上返回item，利用字典可以实现快速的查找。
字典的局限性，1：只有两列，如果需要处理多列数据，需要通过字符串的组合和拆分来实现。2：字典调用会耗费一定时间，如果数据量不大，字典优势无法体现。
注意的地方：字典的编号也是从0开始，如果需要查询第一个则是key（0），这一点和数组是一样的
二 如何创建字典
字典由scrrun.dll链接数据库提供的，第一种方法，直接创建，set d = createobject("scripting.dictionary"),第二种方法是引用法，工具-引用-浏览-找到scrrun.dll-确定
三 字典的具体使用
3.1 装入数据
Sub zidian()
Dim d As New dictionary
Dim x As Integer
For x = 2 To 4
d.Add Cells(x, 1).Value, Cells(x, 2).Value
Next x
MsgBox d.keys(0)
Stop
End Sub
代码有问题，需要debug. 后来视频中提到，这种方法只能在字典引用法中使用。写代码过程中出现的问题有1 字典的第二种引用方法中，工具中的引用栏为灰色，无法引用，2 d.add cells(x,1)后面忘记加value，这里，如果不加value，那么就会引用单元格的对象而不是值。
debug完成，修改后的代码为
Sub zidian()
Dim d
Dim x As Integer
Set d = CreateObject("scripting.dictionary")
For x = 2 To 4
d.Add Cells(x, 1).Value, Cells(x, 2).Value
Next x
MsgBox d("张三")
End Sub
因为引用法不可用，故使用set d 方法，使用该方法时候，msgbox 的时候不能用keys序号引用，需要使用MsgBox d("张三")这种方法引用。
3.2 读取数据
Sub z2()
Dim d
Dim arr
Dim x As Integer
Set d = CreateObject("scripting.dictionary")
For x = 2 To 4
d.Add Cells(x, 1).Value, Cells(x, 2).Value
Next x
MsgBox d("李四")
Range("d1").Resize(d.Count) = Application.Transpose(d.keys)
Range("e1").Resize(d.Count) = Application.Transpose(d.items)
End Sub
3.3 修改数据（添加新数据）
Sub z3()
Dim d
Dim x As Integer
Set d = CreateObject("scripting.dictionary")
For x = 2 To 4
d.Add Cells(x, 1).Value, Cells(x, 2).Value
Next x
d("张三") = 88
d("赵六") = 100
Range("f1").Resize(d.Count) = Application.Transpose(d.keys)
Range("g1").Resize(d.Count) = Application.Transpose(d.items)
End Sub
注意：这里的修改数据是改变第二列的数值。如果在修改数据时，第一列元素不存在，则会自动添加。如果存在，新加的值则会覆盖掉原来的。用这个方法的时候，相对于add，好处在于不需要判断是否重复，有就覆盖掉没有就新建一个。
3.4 删除数据
Sub z4()
Dim d
Dim x As Integer
Set d = CreateObject("scripting.dictionary")
For x = 2 To 4
d.Add Cells(x, 1), Cells(x, 2)
d.Remove "赵六"
End Sub
数组删除的时候不能把一行给单独删除掉，需要查找再删除或者循环，但是字典可以做到。d.removeall是把字典清空。
网友评论