如何删除单元格内任意位置多次出现的指定模式方括号内容

实现逻辑 #

你要删除的[cid:xxx]、[https://xxx]这类内容，核心特征是整体被一对方括号包裹，不管出现在单元格的开头、中间还是末尾，出现多少次，都可以通过正则批量匹配删除，处理后自动清理多余空行，不会残留无效换行。
匹配用的正则规则是\[[^\[\]]+\]，这个规则会精准定位每一段从左方括号开始、到最近的右方括号结束的内容，不会出现匹配范围越界把正常文本删掉的问题。

可直接用的VBA代码 #

Sub 清除方括号包裹的无效内容()
    Dim reg As Object
    Dim processRng As Range, cell As Range
    Dim resultText As String
    
    ' 初始化正则匹配工具
    Set reg = CreateObject("VBScript.RegExp")
    With reg
        .Global = True ' 开启全局匹配，一次性替换所有符合规则的片段
        .Pattern = "\[[^\[\]]+\]"
        .IgnoreCase = True
    End With
    
    ' 选择要处理的单元格范围
    On Error Resume Next
    Set processRng = Application.InputBox("请框选需要处理的单元格区域", Type:=8)
    On Error GoTo 0
    If processRng Is Nothing Then Exit Sub
    
    ' 逐单元格循环处理
    For Each cell In processRng
        If Not IsError(cell.Value) And cell.Value <> "" Then
            ' 替换所有方括号内容
            resultText = reg.Replace(cell.Value, "")
            ' 清理首尾空白、多余空行
            resultText = Trim(resultText)
            Do While InStr(resultText, vbCrLf & vbCrLf) > 0
                resultText = Replace(resultText, vbCrLf & vbCrLf, vbCrLf)
            Loop
            cell.Value = resultText
        End If
    Next cell
    
    Set reg = Nothing
    MsgBox "处理完成"
End Sub

使用步骤 #

• 打开需要处理的Excel文件，按Alt+F11调出VBA编辑器
• 在左侧工程列表右键点击当前工作簿名称，依次选择「插入」-「模块」，把上面的代码完整粘贴到弹出的代码编辑窗口
• 按F5运行宏，按照弹窗提示框选你要处理的所有单元格，确认后等待几秒即可完成处理

测试效果 #

用你提供的两组样例实测：

• 样例A：有效内容在上方、方括号内容在末尾，处理后自动删除3行无效方括号内容，保留Hi xxx,、This is Ken两行，和预期结果完全一致
• 样例B：方括号内容分散在开头和末尾，处理后自动删除前后3行无效内容，保留中间的有效文本，无多余空行残留
  如果后续遇到特殊格式的方括号内容，只需要微调正则匹配规则即可适配，当前规则已经覆盖你提到的cid图片标识、方括号包裹链接两类场景。

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