文字出現回数のカウント方法【Python/JavaScript/Excel】
各文字の出現回数を格納するために、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
このコードは、各文字とその出現回数を出力します。結果をさらに処理することができます。