如何从字符串中找到Slash的出现次数

Question

如何使用Excel VBA宏查找字符串中正斜杠字符(/)的出现次数？

Answer 1

老问题,但我想我会通过在excel论坛上找到的答案来增加答案的质量.显然,计数也可以使用.

    count =Len(string)-Len(Replace(string,"/",""))

答案全部归功于原作者:http://www.ozgrid.com/forum/showthread.php？t = 45651

Answer 2

使用以下功能,如count = CountChrInString(yourString, "/").

'''
''' Returns the count of the specified character in the specified string.
'''
Public Function CountChrInString(Expression As String, Character As String) As Long
'
' ? CountChrInString("a/b/c", "/")
'  2
' ? CountChrInString("a/b/c", "\")
'  0
' ? CountChrInString("//////", "/")
'  6
' ? CountChrInString(" a / b / c ", "/")
'  2
' ? CountChrInString("a/b/c", " / ")
'  0
'
    Dim iResult As Long
    Dim sParts() As String

    sParts = Split(Expression, Character)

    iResult = UBound(sParts, 1)

    If (iResult = -1) Then
    iResult = 0
    End If

    CountChrInString = iResult

End Function

Answer 3

Function CountOfChar(str as string, character as string) as integer
      CountOfChar = UBound(Split(str, character))
End Function