Excel VBA高级编程:某个字符的出现次数

统计一个字符串中的某个字符的出现次数,比如"asdsd" s出现两次,应该用哪个函数?

Sub ttt()
    Dim Q$, I%, J%, W%
    Q = "asdsd"
    I = Len(Q)
    J = 1 To I
        If Mid(Q, J, 1) = "s" Then W = W + 1
    Next
    MsgBox W
End Sub

以上循环也可以用以下语句实现:

Sub ttt()

Msgbox Len("dSdSd") -Len(Replace("dSdSd", "S", ""))

End Sub

注:

      Replace是在一个字符串中,对指定的字符串进行替换为其他指定的字符串.本例中在字符串"dSdSd"中,用""替换"S",然后用原来的总长度(LEN函数求得)减去替换后的总长度,即为S的个数.