Excel批量将!开头字母数字串替换为NOT(...)格式的需求

一、VBA宏方案（兼容Excel 2010-365，优先推荐） #

通过正则表达式精准匹配所有!开头的字母数字串，自动替换为NOT(...)格式，支持批量处理选中单元格：

Sub ReplaceExclamationWithNOT()
    Dim rng As Range
    Dim cell As Range
    Dim regEx As Object
    Dim pattern As String
    
    ' 后期绑定正则对象，无需手动添加引用，兼容全版本
    Set regEx = CreateObject("VBScript.RegExp")
    regEx.Global = True ' 全局匹配所有符合条件的串
    regEx.IgnoreCase = False
    
    ' 正则规则：匹配!开头，后面跟字母数字，直到遇到空格、)、;、,或单元格末尾
    pattern = "!([A-Za-z0-9]+)(?=[\s\);,]|$)"
    
    ' 选择要处理的单元格区域
    Set rng = Application.InputBox("请选择需要处理的单元格区域", Type:=8)
    
    For Each cell In rng
        If cell.Value <> "" Then
            ' 替换：把!xxx替换为NOT(xxx)
            cell.Value = regEx.Replace(cell.Value, "NOT($1)")
        End If
    Next cell
    
    Set regEx = Nothing
    MsgBox "替换完成！"
End Sub

使用步骤： #

• 按Alt+F11打开VBA编辑器
• 插入模块：右键左侧工程窗口→插入→模块
• 粘贴上述代码，保存文件（需保存为.xlsm格式）
• 返回Excel，按Alt+F8选择ReplaceExclamationWithNOT执行，按提示选择要处理的单元格区域即可

二、公式方案（分版本） #

1. Excel 365/2021版本（支持REGEXREPLACE函数） #

直接用内置正则函数一步到位，假设原内容在A1单元格，在B1输入：

=REGEXREPLACE(A1,"!([A-Za-z0-9]+)(?=[\s\);,]|$)","NOT($1)")

下拉填充即可批量处理。

2. Excel 2010版本（无内置正则函数） #

由于2010没有REGEXREPLACE，可以用自定义函数（灵活用于单元格公式）：

Function ReplaceNOT(inputStr As String) As String
    Dim regEx As Object
    Dim pattern As String
    
    Set regEx = CreateObject("VBScript.RegExp")
    regEx.Global = True
    pattern = "!([A-Za-z0-9]+)(?=[\s\);,]|$)"
    
    ReplaceNOT = regEx.Replace(inputStr, "NOT($1)")
    
    Set regEx = Nothing
End Function

使用时在单元格输入=ReplaceNOT(A1)即可，下拉填充。

效果验证（对应示例） #

内容的提问来源于stack exchange，提问作者mbart67