求助:VBA中正则表达式提取末端文字

Question

1.类型
2.类型/厂家
3.类型/厂家/型号
求一个通用的正则表达式，能够提取最后的文字
结果:
1.类型
2.厂家
3.型号

Answer 1

一如既往的提供非正则表达式方案：Sub test()
    Debug.Print getLast("类型")
    Debug.Print getLast("类型/厂家")
    Debug.Print getLast("类型/厂家/型号")
End SubFunction getLast(strIn As String) As String
    Dim tmp() As String
    tmp = Split(strIn, "/")
    getLast = tmp(UBound(tmp))
End Function

Answer 2

如果嫌弃用了三行代码，那就改成一行。Sub test()
    Debug.Print getLast("类型")
    Debug.Print getLast("类型/厂家")
    Debug.Print getLast("类型/厂家/型号")
End SubFunction getLast(strIn As String) As String
    getLast = Split(strIn, "/")(UBound(Split(strIn, "/")))
End Function