Question

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

晴天91878656 rere

vicky 91864567 gfgf

honey 91941561 ytyt

monika 98887888 hjhj

否则，如果我想将以下两个值与空格一起替换：

91941561    
98887888

我该怎么做？

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

也可以删除整个记录，如果发现91941561应该删除整个记录或用以下空格替换：

蜂蜜91941561 ytyt monika 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

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

1 个答案: