Excel vba拆分功能无法正常工作

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财产.使用UBound用于阵列中的元件的从零开始计数.

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