字典对象简化统计汇总 键值匹配实现高效查询
主要内容：
一、
1、Dictionary.Add k,i
在字典中添加一个新的元素，其关键字为k，条目为i。如果字典已经有一个关键字为k的元素，则报错。
2、Dictionary.Exists(k)
判断该字典中是否已经存在一个关键字为k的元素，存在则返回True，否则返回False。
3、Dictionary.Item(k)
给我一个关键字，我告诉你这个关键字对应的条目的取值。
可以简写为Dictionary（k）。使用该方法时，如果字典中没有关键字为k的元素，就会自动创建一个元素，关键字为k，条目为空值。
4、Dictionary.Count
代表该字典中当前元素个数。如果字典为空，则Count属性为0.
5、Dictionary.Keys
生成并返回一个一维数组，包含字典中所有元素的关键字。
6、Dictionary.Items
生成并返回一个一维数组，包含字典中所有元素的条目内容
7.Dictionary.Key(k)
代表该字典中，关键字为k的元素的关键字，常用语修改制定元素的关键字。
8.Dictionary.Remove(k)
从字典中删除关键字为k的元素
9.Dictionary.RemoveAll
从字典中删除所有元素
10.字典中的关键字和条目可以是任何类型的数据。
Sub 字典学习()
Dim i As Integer, k As String, myDic As Object, a(), b()
Set myDic = CreateObject("scripting.dictionary")
For i = 4 To 21
k = Cells(i, 2)
If myDic.exists(k) Then
myDic.Item(k) = myDic.Item(k) + Cells(i, 4).Value
Else
myDic.Add k, Cells(i, 4).Value
End If
Next i
i = myDic.Count
If i > 0 Then
a = myDic.keys
b = myDic.items
End If
End Sub
网友评论