Question

我想知道简单VBA替换功能中的通配符是否起作用。所以我有一个字符串变量，我们说：

str = " Lorem Ipsum 3.07 EUR Dorum"

我需要删除此部分“ 3.07 EUR”。我绝对知道金额，但不知道货币我尝试的代码无法正常工作：

str1 = Replace(str, " 3.07 ???", "")

我知道在单元格或范围内进行替换时它可以工作，因为我有一部分代码可以做到这一点。替换单元格和替换字符串变量是否有任何区别，我只是做错了？

Answer 1

只需使用正则表达式（假设您知道数字，就可以了）

Sub Test()
    MsgBox RemoveString(" Lorem Ipsum 3.07 EUR Dorum", "3.07")
End Sub

Function RemoveString(s$, num$)
    With CreateObject("VBScript.RegExp")
        .Pattern = num + "\s+[A-Z]{3}"
        RemoveString = .Replace(s, "")
    End With
End Function

VBA字符串变量中的通配符

1 个答案: