Question

vba 查找字符串

请问一下,假如有一个字符串abc\bcd\cde\efg 我想使用一个vba方法,从左开始,查找最后一个"\"出现的位置,也就是12，我用了instr和instrrev方法都不行,希望vba高手解答下

Answer 1

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、然后进行保存，点击运行就完成了。

Answer 2

很简单的呀，哪有这么复杂，直接用InStrRev函数即可
MsgBox InStrRev("abc\bcd\cde\efg", "\")
就这样就行了，字符串可用变量来代替。
instrrev函数就是从最末一个开始找的。
instrrev(字符串，要找的字符）
返回的就是你要的位置

Answer 3

用自定义函数：
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