Excel VBA：如何使用 RegExp.replace 从字符串中删除字符？

Question

在 VBA Excel 中，我使用正则表达式。我已启用 Microsoft VBScript 正则表达式 5.5，并尝试使用 RegExp 进行以下操作。

Input: "234;BB-154"
Expected Output "234;154"

相反值 = “[^\d;]+234;BB-154”

下面是我的代码。

Sub NumbersOnly()
    Dim Values As String
    Dim Value As String
    Set Regex=New RegExp
    Value = "234;BB-154"
    Values = Regex.replace(Value, "[^\d;]+")
End Sub

Answer 1

使用 RegEx 的正确方法如下。

Dim Values As String
Dim ValuesRaw As String

Dim regexOne As Object
Set regexOne = New RegExp

regexOne.Pattern = "[^\d;]+"
regexOne.Global = False

ValuesRaw = "234;BB-154"
Values = regexOne.replace(ValuesRaw, "")