请问在字符串中查找相同字符个数的函数怎么写？急急！！！！！！！！！

[bluefish922]

请问在字符串中查找相同字符个数的函数怎么写？
比如“jg,ago,gao,gaow,”
中查找“，”的个数

[Bardo]

RepeatCount=Ubound(Split(Replace(OrgStr,Chkstr))

[Bardo]

对不起，上面错了
RepeatCount=Ubound(Split(OrgStr,Chkstr))

[playyuer]

Private Sub Command1_Click()
VBA.MsgBox GetRepeatCount("aabcdaa", "aa")
End Sub
Public Function GetRepeatCount(X As String, Y As String) As Long
GetRepeatCount = (VBA.Len(X) - VBA.Len(VBA.Replace(X, Y, ""))) \ VBA.Len(Y)
End Function

[estrella]

同意Bardo(巴顿)的看法,再详细一点:
dim Arr()
dim YouWant
arr=split(“jg ago gao gaow”) '这里以空格分割字符.
YouWant=ubound(arr)
建议不要用逗号区分字符.

[ruikang]

Private Function StatStrCount(SourceStr As String, FindStr As String) As Integer
'这个函数统计在SourceStr中FindStr出现的次数。
'入口参数:SourceStr=源字符串,FindStr=待统计字符串
'出口参数：出现次数
StatStrCount = Len(Replace(SourceStr, FindStr, FindStr & "@")) - Len(SourceStr)
End Function

[ruikang]

对不起，理解错意思啦

[bc3]

老巴的方法正确

[Soft21]

大家好啊，我嘛，我学到了不少东西

[zhaozhongju]

To Bardo(巴顿) :
YOU ARE GREAT！！^_^

TO bluefish922 (小月人) :

快给答对的兄弟加分啊，朋友，要讲信用的