使用Replace()函数统计一个字符串在另一个字符串中出现的次数自定义函数：

使用Replace()函数统计一个字符串在另一个字符串中出现的次数自定义函数：

Public Function strCount(strA As String, strB As String) As Long
    Dim lngA As Long
    Dim lngB As Long
    Dim lngC As Long
    lngA = Len(strA)
    lngB = Len(strB)
    lngC = Len(Replace(strA, strB, ""))
    strCount = (lngA - lngC) / lngB
End Function