嘿，细小伙伴们，今天咱们来聊聊VBA里的一个超级优良用的东西——字典！你晓得吗，学会这玩意儿，你的数据处理效率Neng直接上天哦！

一、啥是VBA字典？

字典啊，就像咱们家里的字典本，Neng帮我们找到随便哪个你想找的东西。在VBA里字典就是用来存储键值对的，就像我们个个人dou有一个名字和对应的年龄。

在VBA中，我们Neng用“Scripting.Dictionary”来创建一个字典。这就像是我们买了一个新鲜的字典本，Neng开头写写画画了。

二、VBA字典怎么用？

先说说我们要创建一个字典对象，就像是我们打开字典本一样。然后我们Neng前里面添加一些键值对，就像是在字典本上写名字和年龄。

        ' 定义员工对象
        Class Employee
            Public Name As String
            Public Age As Integer
        End Class
        ' 创建字典对象
        Dim myDict As New Scripting.Dictionary
        ' 创建员工对象
        Dim e1 As New Employee
        e1.Name = "Jack"
        e1.Age = 25
        Dim e2 As New Employee
        e2.Name = "Lucy"
        e2.Age = 22
        ' 将员工对象添加到字典中
        myDict.Add "Jack", e1
        myDict.Add "Lucy", e2
    

三、字典应用案例

1. 统计词频

字典还Neng帮我们统计词频呢！比如我们Neng用它来统计一篇文章里个个单词出现的次数。

        For i = 1 To 10
            myDict.Add i, "Value " & i
        Next i
    

2. 删除键值对

Ru果某个键值对不再需要了 我们Neng用“Remove”方法把它删掉，就像是在字典本上划掉一个名字。

        myDict.Remove "Value"
    

3. 计算平均值

字典还Neng帮我们计算平均值呢！比如我们Neng用它来计算一组数字的平均值。

        Dim numbers As Double
        numbers = Array
        Dim sum As Double
        Dim myDict As New Scripting.Dictionary
        For i = 1 To UBound
            sum = sum + numbers
        Next i
        Dim avg As Double
        avg = sum /  + 1)
        For i = 1 To UBound
            myDict.Add i, numbers - avg
        Next i
    

4. 修改键值对

Ru果某个键值对的值需要修改， 我们Neng直接用“Add”方法来修改它，就像是在字典本上 一个名字。

        myDict = "New Value"
    

5. 查找键值对

想晓得某个键是不是存在？用“Exists”方法就Neng啦！它会告诉你这玩意儿键是不是真实的在字典里。

        If myDict.Exists Then
            ' Key存在
        Else
            ' Key不存在
        End If
    

优良了今天的分享就到这里啦！学会了VBA字典，你的数据处理Neng力是不是感觉提升了不少许？赶紧去试试吧！