excel提取字符串中某一字符位置

 

Public Function getPos(source As String, searchChar As String)
  Dim i
 i = InStr(1, source, searchChar, vbTextCompare) '调用vba函数 
 getPos = i
 End Function