请问一下,假如有一个字符串abc\bcd\cde\efg 我想使用一个vba方法,从左开始,查找最后一个"\"出现的位置,也就是12，我用了instr和instrrev方法都不行,希望vba高手解答下
1、首先需要打开需要编辑的Excel表格，进入到编辑的的页面中。
2、然后在弹出来的窗口中，鼠标右键单击工作表，选择打开“查看代码”。
3、然后在弹出来的窗口中，点击输入代码：
Sub AAA()
Dim I As Long
For I = 1 To 1000 '行 范围，自己修改
If InStr(Range("A" & I), "invalidstatus") > 0 Then
Range("A" & I).Font.Color = vbRed
End If
Next
End Sub
4、然后进行保存，点击运行就完成了。
温馨提示：答案为网友推荐，仅供参考
第1个回答 推荐于2017-11-24
很简单的呀，哪有这么复杂，直接用InStrRev函数即可
MsgBox InStrRev("abc\bcd\cde\efg", "\")
就这样就行了，字符串可用变量来代替。
instrrev函数就是从最末一个开始找的。
instrrev(字符串，要找的字符）
返回的就是你要的位置本回答被提问者采纳
MsgBox InStrRev("abc\bcd\cde\efg", "\")
就这样就行了，字符串可用变量来代替。
instrrev函数就是从最末一个开始找的。
instrrev(字符串，要找的字符）
返回的就是你要的位置本回答被提问者采纳
第2个回答 2011-02-28
用自定义函数：
Public Function re(s, c)
Dim r As Integer
For i = Len(s) To 1 Step -1
If Mid(s, i, 1) = c Then
re = i
Exit For
End If
Next
End Function
Public Function re(s, c)
Dim r As Integer
For i = Len(s) To 1 Step -1
If Mid(s, i, 1) = c Then
re = i
Exit For
End If
Next
End Function
