從一組字符串

Question

喜替代多個單元格的值我想在一個替換多個值，例如：

晴天91878656 RERE

玉萍91864567 gfgf

蜂蜜91941561 ytyt

莫妮卡98887888 hjhj

NOw如果我想用空格替換下列兩個值：

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