你可以使用一個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
這段代碼會輸出每個字符和它們在字符串中出現的次數。你可以根據自己的需求對結果進行進一步處理。
