从vba字符串中删除任何字符组合

Question

我的字符串值为00330508911 = 010403954？在Excel VBA中 我想删除除第二组数字之外的所有字符，即010402600。 我已经尝试了许多其他替代品而没有运气，我们对此表示赞赏。

Answer 1

假设您的问题是“如何删除等号和问号”之间的数字，那就是它的基本字符串操作：

Public Function secondNumber(inputStr As String) As String

    'text after the equals sign
    a = Mid(inputStr, InStr(1, inputStr, "=") + 1, 100)

    'and before the question mark
    b = Mid(a, 1, InStr(1, a, "?") - 1)

    secondNumber = b

End Function