从单元格的最后一个小数点提取之后的字符

szbhui

.Cells(i, 13) = VBA.Right(Cells(i, 11), 3)   


如上，i11里面现在的内容是存的文件路径,比如c:\aa.xls，想提取扩展名到i13，现扩展名取值为右3, 现在想提取从右侧往左至第一个小数点，比如c:\aa.xls就取xls,如果是c:\aa.xlsx就取xlsx   请大神帮忙改一下。

kevinchengcw

.Cells(i, 13).value = mid(.Cells(i, 11).value, instrrev(.cells(i,11).value,".")+1)  

szbhui

kevinchengcw 发表于 2024-9-29 16:07
.Cells(i, 13).value = mid(.Cells(i, 11).value, instrrev(.cells(i,11).value,".")+1)

解决了，非常感谢！

班定远

1. 路径 = "c:\.aa.xlsx"
   
2. 位置 = InStrRev(路径, ".")
   
3. 扩展名 = Mid(路径, 位置 + 1, 99)

复制代码

szbhui

班定远 发表于 2024-9-29 16:11

谢谢，已搞定！

sunya_0529

还有哪些方法，有兴趣的老铁们可以跟帖分享一下——