Excelの分割機能が動作しません

Question

文字列内に文字の出現回数を取得しようとしています。それはうまくいくはずですが、そうではありません。

Function countLetter(letter As String, secretWord As String) 
    MsgBox (Split(secretWord, letter).Length) 
    countLetter = Split(secretWord, letter).Length - 1 
End Function 

ここで何が間違っていますか？

Answer 1

Splitには、.Lengthというプロパティがありません。配列内の要素の0から始まるカウントにはUBoundを使用します。

Function countLetter(letter As String, secretWord As String) 
    MsgBox UBound(Split(secretWord, letter)) + 1 
    countLetter = UBound(Split(secretWord, letter)) 
End Function