获取指定字符再字符串的位置
Function GetPosition(Cell, Txt, Optional k = 0)n = InStr(Cell, Txt)
p = n
c = 1
Do
If c = k Then GetPosition = n: Exit Function
n = InStr(n + 1, Cell, Txt)
If n = 0 Then Exit Do
c = c + 1
p = p & "," & n
Loop
GetPosition = p
End Function
页:
[1]