vba 函数返回字典

VBA 中可以使用 Dictionary 对象来创建一个键值对的集合，可以使用 Add 方法向其中添加新的元素，也可以使用 Item 方法来获取或修改某个元素的值。

下面是一个 VBA 函数示例，该函数接收一个字符串参数，并将字符串中每个字符出现的次数作为键值对存储在一个 Dictionary 对象中，并将该字典对象返回：

Function CountCharacters(str As String) As Object
    Dim dict As New Dictionary
    Dim i As Long
    For i = 1 To Len(str)
        If Not dict.Exists(Mid(str, i, 1)) Then
            dict.Add Mid(str, i, 1), 1
            dict.Item(Mid(str, i, 1)) = dict.Item(Mid(str, i, 1)) + 1
        End If
    Next i
    Set CountCharacters = dict
End Function
这个函数首先创建一个新的 Dictionary 对象，然后遍历传入的字符串中的每个字符。对于每个字符，如果它尚未在字典对象中存在，则将其添加为新元素，并将其值初始化为 1。如果它已经存在于字典对象中，则将其值加 1。
最后，函数将完整的字典对象返回。在调用这个函数时，可以将返回的对象视为一个键值对的集合，可以使用 Keys 方法获取所有的键，使用 Items 方法获取所有的值，使用 Item 方法获取指定键对应的值。
示例代码：
Sub TestCountCharacters()
    Dim dict As Object
    Set dict = CountCharacters("Hello, world!")
    Dim key As Variant
    For Each key In dict.Keys
        Debug.Print key & " = " & dict.Item(key)
    Next key
End Sub
这段代码将输出字符串中每个字符出现的次数。