[已解决]麻烦大神帮我将excel公式转成vba代码，谢谢

losevan

=CONCATENATE("hello\",MID(R2,FIND("*",SUBSTITUTE(R2,"\","*",(LEN(R2)-LEN(SUBSTITUTE(R2,"\","")))))+1,99))

最佳答案

月排行榜 / 总排行榜

云影

2016-9-19 09:20

S = "hello\" & Mid([r2], InStrRev([r2], "\") + 1)

跳转到最佳答案楼层

云影

S = "hello\" & Mid([r2], InStrRev([r2], "\") + 1)

苏子龙

Function contest(st As String)
    Dim arr
    Application.Volatile
    arr = Split(st, "\")
    contest = "hello\" & Split(st, "\")(UBound(arr))
    Erase arr
End Function

losevan

云影 发表于 2016-9-19 09:20
S = "hello\" & Mid([r2], InStrRev([r2], "\") + 1)

大神，如果我想取s2呢？怎么改？我改成S = "hello\" & Mid([s2], InStrRev([s2], "\") + 2) ?