阅读量:0
你可以使用一个Dictionary对象来存储每个字符出现的次数,然后遍历字符串中的每个字符并更新对应的计数器。以下是一个示例代码:
Sub CountCharacters() Dim str As String Dim charCount As New Dictionary ' 输入字符串 str = "Hello, World!" ' 遍历字符串中的每个字符 For i = 1 To Len(str) Dim char As String char = Mid(str, i, 1) ' 如果字符已在字典中存在,则将计数器加1 If charCount.Exists(char) Then charCount(char) = charCount(char) + 1 Else ' 否则初始化计数器为1 charCount.Add char, 1 End If Next i ' 输出每个字符出现的次数 For Each key In charCount.Keys Debug.Print key & ": " & charCount(key) Next key End Sub
这段代码会输出每个字符和它们在字符串中出现的次数。你可以根据自己的需求对结果进行进一步处理。