vba - 仅获取 VBA 中的数值

Question

我有一个字符串

Dim A As String
A = "A23"
B = "bd4"

我只需要获取数值作为输出，如下所示

A = 23
B = 4

标签： vba

Answer 1

您可以在这里使用正则表达式替换：

Dim A As String: A = "A23"
Dim AOut As String
Dim pattern As String: pattern = "\D+"
Set regEx = CreateObject("VBScript.RegExp")

With regEx
    .Global = True
    .Pattern = pattern
End With

AOut = regEx.Replace(A, "")
Debug.Print AOut