Microsoft Excel 中的正则表达式子字符串替换[关闭]

使用Microsoft Excel中的正则表达式子字符串替换

VBA
Sub ReplaceEmailDomain()
    Dim rng As Range
    Dim regEx As Object
    Dim matches As Object
    Dim match As Object
    Dim pattern As String
    Dim replacement As String
    
    ' 设置要替换的正则表达式模式和替换文本
    pattern = "@\w+\.\w+"
    replacement = "@example.com"
    
    ' 创建正则表达式对象
    Set regEx = CreateObject("VBScript.RegExp")
    regEx.Global = True
    
    ' 遍历选定的单元格范围
    For Each rng In Selection
        ' 在每个单元格中查找符合正则表达式模式的子字符串
        Set matches = regEx.Execute(rng.Value)
        
        ' 遍历找到的匹配项
        For Each match In matches
            ' 将匹配项替换为指定的文本
            rng.Value = regEx.Replace(rng.Value, replacement)
        Next match
    Next rng
End Sub