VBAで文章中の文字数を数えるプログラムを組みたい

Question

VBAを用いてテキスト内の文字の個数をそれぞれ数えてグラフに出力しようとしています。
とりあえずA列にはa,b,c,...を、B列にはそれらの出現回数をいれ、A1:B27の範囲で棒グラフにしようとしています。
肝心の文字を数えてB列の各セルに入れていくコードが以下です。

Sub countCharacters()
    Dim data As String, newData As String, i As Long, cnt As Long
    
    data = "ABC,DEF,GHI"
    newData = LCase(data)
    Dim charcters (1 To 26) As String
    
    For i = 1 To 26
        characters(i) = Sheet1.Cells(i + 1, 1).Value
    Next i

    For i = 1 To 26
        characters(i) = Sheet1.Cells(i+1,1).Value
         For j = 1 To Len(newData)
            If Mid(newData, j, 1) = characters(j) Then cnt = cnt + 1
        Next j
        Sheet1.Cells(i,2).Value = cnt
    Next i
    
   
End Sub

エラーメッセージとして

---

コンパイル エラーです。:

Sub または Function が定義されていません。

が出てしまいます。
改善方法を教えてください。

Answer 1

###エラー原因
「Sub または Function が定義されていません。」の原因は、characters(i)の綴り間違いが原因です。
以下のように修正致しましたので、ご確認ください。

（変更A）綴り修正.
charcters➡characters

（変更B）Cells(1,1)からCells(26,1)までの範囲に修正.
Sheet1.Cells(i + 1, 1)➡Sheet1.Cells(i, 1).Value

（変更C）比較対象はA列のアルファベット(a~z)のため、インデックス変数はjでなくi.
characters(j)➡characters(i)

修正コードは以下です。

Sub countCharacters()
    Dim data As String, newData As String, i As Long, cnt As Long

    data = "ABC,DEF,GHI"
    newData = LCase(data)
    'Dim charcters(1 To 26) As String
    Dim characters(1 To 26) As String '@変更A charactersの綴り修正

    For i = 1 To 26
        'characters(i) = Sheet1.Cells(i + 1, 1).Value
        characters(i) = Sheet1.Cells(i, 1).Value '@変更B Cells(1,1)から(26,1)まで
    Next i

    For i = 1 To 26
        cnt = 0 '変更 cntの初期化
        'characters(i) = Sheet1.Cells(i + 1, 1).Value '@削除 ループの前でやっているので不要
         For j = 1 To Len(newData)
            'If Mid(newData, j, 1) = characters(j) Then cnt = cnt + 1
            If Mid(newData, j, 1) = characters(i) Then cnt = cnt + 1 '@変更C characters(i)に変更
        Next j
        Sheet1.Cells(i, 2).Value = cnt
    Next i
End Sub

以上です。