[removed]能算出一个字符在一字段里共出现有几次的函数

Function RegExpTest(patrn, strng)  Dim regEx, Matches  Set regEx = New RegExp  regEx.Pattern = patrn  regEx.IgnoreCase = True ‘为真则忽略大小写，否则严格匹配大小写  regEx.Global = True  Set Matches = regEx.Execute(strng)  RegExpTest = Matches.count  End Function  MsgB