Excel VBA - 如何获取InStr的下一个字符？

Question

s = "qweqweqwe12345"
mm = "qweqweqwe"

If InStr(mm,rr) <> 0 Then

 ' get the the next character or "12345"

End if

我需要在rr。

中找到mm字符串后得到下一个字符

Answer 1

这是你在尝试的吗？

Sub Sample()
    s = "qweqweqwe12345"
    mm = "qweqweqwe"

    If InStr(1, s, mm) <> 0 Then
        '~~> Find position of string1
        pos1 = InStr(1, s, mm)
        '~~> Find position of string2
        pos2 = InStr(pos1 + Len(mm), s, "12345")
        Debug.Print pos2
    End If
End Sub

Answer 2

我认为你的意思是：

Dim lFound As Long
s = "qweqweqwe12345"
mm = "qweqweqwe"

lFound = InStr(s, mm)
If lFound <> 0 Then MsgBox Mid$(s, lFound + Len(mm))