单元格A1内容为：02云南\丽大泸\你好，丽江-1399.doc

a = Range("A1")

b = ???????????
c = ???????????
d = ???????????
e = ???????????

msgbox b   显示     02云南\丽大泸           （最后一个符号\前的内容）
msgbox c   显示     02云南                  （第一个符号\前的内容）
msgbox d   显示     1399                    （符号-和符号.之间的内容）
msgbox e   显示     你好，丽江              （最后一个符号\和符号-之间的内容）

请问大神，文中的???????????用VBA应该怎么表示

[此贴子已经被作者于2021-5-4 16:46编辑过]

Sub T()

    a = Range("A1")
    
    b = Left(a, InStrRev(a, "\") - 1)
    c = Left(a, InStr(a, "\") - 1)
    d = Mid(a, InStrRev(a, "-") + 1, InStrRev(a, ".") - InStrRev(a, "-") - 1)
    e = Mid(a, InStrRev(a, "\") + 1, InStrRev(a, "-") - InStrRev(a, "\") - 1)
    
    MsgBox b
    MsgBox c
    MsgBox d
    MsgBox e

End Sub