Excel VBA求解字符串字串的一个写法

有的时候我们在excel中需要处理例如:"123 345,获取345或者123的子串,或者一个路径C:/data/11.xls,我们要获得11.xls"一类的问题,偶尔想到一个解决的办法,代码如下:

要求获得第三列单元格格式如下:

189 132.7

中132.7的值填充在第四列中.
Public Sub findstr()
   Dim str1, str2 As String
   For i = 2 To 52
       str1 = Trim(CStr(Cells(i, 3)))
       temparr = Split(str1, " ")
       str2 = temparr(UBound(temparr))
       Cells(i, 4) = str2
   Next i
End Sub