Excel VBA高级编程:反向查找字符串位置的方法（VBA法）

高级编程:反向查找字符串位置的方法（VBA法）

字符串的反向查找函数有么?

"dSdSd",反向查找第一个S,返回:4.

回复：

Sub TTT()
    Dim T$, I%, J%, K%
    T = "dSdSd"
    I = Len(T)
    J = 1 To I
        If Right(T, 1) = "S" Then
        K = I - J + 1
        Exit For
        Else
        T = Left(T, I- J)
        End If
    Next
    MsgBox K
End Sub

*************************补充一下***************************************************************

在VBA中InStrRev是执行反向查找的函数.

用法为:InStrRev(搜索的字符串, 查找的字符或字符串,开始查找的位置(倒数的位置))

本例可简化为:

InStrRev("dSdSd", "S")