|
#2
apull2021-05-04 22:32
 程序代码：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 |
a = Range("A1")
b = ???????????
c = ???????????
d = ???????????
e = ???????????
msgbox b 显示 02云南\丽大泸 （最后一个符号\前的内容）
msgbox c 显示 02云南 （第一个符号\前的内容）
msgbox d 显示 1399 （符号-和符号.之间的内容）
msgbox e 显示 你好，丽江 （最后一个符号\和符号-之间的内容）
请问大神，文中的???????????用VBA应该怎么表示
[此贴子已经被作者于2021-5-4 16:46编辑过]