从一组字符串

喜替代多个单元格的值我想在一个替换多个值，例如：从一组字符串

晴天91878656 RERE

玉萍91864567 gfgf

蜂蜜91941561 ytyt

莫妮卡98887888 hjhj

NOw如果我想用空格替换下列两个值：

91941561  
98887888

我该怎么办？

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

也可以移除整个记录一样，如果91941561发现整个记录应予删除或类似空格替换：

蜂蜜91941561 ytyt 莫妮卡98887888 hjhj

感谢

来源

2013-11-02 Kshitij Sharma

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

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

来源

2013-11-02 14:46:11 Santosh

从一组字符串

回答

相关问题