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