excel - 从一组字符串中替换多个单元格值

Question

嗨，我想在一个中替换多个值，例如：

阳光明媚的 91878656

薇琪 91864567 gfgf

蜂蜜 91941561 ytyt

莫妮卡 98887888 hjhj

现在，如果我想用空格替换以下两个值：

91941561    
98887888    

我该怎么做 ？

我不想做简单的查找和替换，因为这只是一个例子，我有一个超过 12000 条记录的列表，需要替换的数字超过 900，我想替换的原因是它们不再有效。

也可以删除整个记录，例如如果发现 91941561 整​​个记录应该被删除或替换为空格，例如：

亲爱的 91941561 ytyt 莫妮卡 98887888 hjhj

谢谢

Answer 1

您可以使用正则表达式。下面是一个示例代码

Sub test()

    Dim str_demo As String
    str_demo = "monika 98887888 hjhj"
    MsgBox getString(str_demo)


End Sub

Function getString(ByVal str As String) As String
    Dim objRegEx As Object
    Set objRegEx = CreateObject("VBScript.RegExp")
    objRegEx.IgnoreCase = True
    objRegEx.Global = True

    objRegEx.Pattern = "[a-zA-Z]"

    Set allMatches = objRegEx.Execute(str)

    For i = 0 To allMatches.Count - 1
        result = result & allMatches.Item(i)
    Next

    getString = result
End Function