字符在字符串中第n次出现的位置

7578b

记得有人问过，一个字符在字符串中第n次出现的位置，做了个自定义函数，希望多交流
w( a , b , c )        w：位置的意思
a：一个字符串
b：要查找的字符
c：第n次出现
若要查找的字符不在字符串中，则返回0 ； 若设定出现的次数大于实际出现的次数，也返回0
把下面代码粘贴到模块中
Public Function w(a As String, b As String, c As Variant)
    If VBA.InStr(a, b) = 0 Then Exit Function
    x = VBA.Len(a) - VBA.Len(WorksheetFunction.Substitute(a, b, ""))
    If c > x Then Exit Function
    aa = a
    For i = 1 To c
        y = y + VBA.InStr(aa, b)
        aa = VBA.Right(aa, VBA.Len(aa) - VBA.InStr(aa, b))
    Next
     w = y
End Function