'str1为要拆分的字符串,str为拆分字串,第三参数可选,表示返回拆分后的第几个子串
Public Function Split_X(str1 As String, str As String, Optional i As Integer = 1)
Application.Volatile
mystr = Split(str1, str)
Split_X = mystr(i - 1)
End Function
'str1为要拆分的字符串,str为拆分字串,第三参数可选,表示返回拆分后的第几个子串
Public Function Split_X(str1 As String, str As String, Optional i As Integer = 1)
Application.Volatile
mystr = Split(str1, str)
Split_X = mystr(i - 1)
End Function