excel 自定义函数工具02 按指定字符串拆分字符串

'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