全民一起VBA提高篇-第三十一回

字典对象简化统计汇总 键值匹配实现高效查询

主要内容：

一、

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