teN.potgnayiaH.wwW vbs小铺

Function LastOne(Str,splitStr)
输入字符和分隔符,得到最后一部分
LastOne = right(Str,len(Str)-InStrRev(Str,splitStr))
End Function

msgbox LastOne("1,2,3", ",")