excel - VBA，修剪路径的一部分

Question

假设我有一个路径:stack/overflow/question/help/please。最终结果是:帮助/请。

有谁有代码可以说明我想要解析多少个“/”。

它类似于文本到列，但我想将其保留在一个单元格中。

谢谢

Answer 1

你可以编写一个像这样的函数:

Function RightPart(s As String, d As String, n As Long) As String
    Dim A As Variant
    Dim i As Long, ub As Long
    Dim t As String

    A = Split(s, d)
    ub = UBound(A)
    If n >= ub Then
        RightPart = s
        Exit Function
    End If
    For i = ub - n + 1 To ub
        t = t & A(i) & IIf(i < ub, d, "")
    Next i
   RightPart = t
End Function

然后 RightPart(":stack/overflow/question/help/please","/",2) 计算结果为 "help/please"