如何在VBA中提取含<>括号的子字符串（排除含NEW_LINE的内容）

你之前的代码存在语法不完整的问题，而且单纯用Split/Replace组合很难精准匹配带<>的完整内容——这种场景用正则表达式会更可靠，能直接定位所有包含<>的完整片段，还能轻松过滤掉含NEW_LINE的内容。

下面是完整的VBA宏代码，完美实现你要的需求：

Public Sub ExtractBracketContent()
    Dim regex As Object
    Dim cell As Range
    Dim matches As Object
    Dim match As Object
    Dim resultList As Collection
    Dim outputCol As Integer
    Dim rowNum As Integer
    Dim i As Integer
    
    ' 初始化正则表达式：匹配所有以<开头、>结尾的完整内容
    Set regex = CreateObject("VBScript.RegExp")
    regex.Pattern = "<[^>]*>"
    regex.Global = True ' 开启全局匹配，捕获所有符合条件的片段
    
    ' 遍历D列和E列的非空单元格
    For Each cell In Union(Columns("D:D"), Columns("E:E")).SpecialCells(xlCellTypeConstants)
        rowNum = cell.Row
        outputCol = cell.Column + 1 ' 结果输出到当前单元格的右侧列
        
        ' 清空当前行右侧的旧输出内容
        Range(Cells(rowNum, outputCol), Cells(rowNum, Columns.Count)).ClearContents
        
        ' 查找单元格中所有含<>的内容
        Set matches = regex.Execute(cell.Value)
        Set resultList = New Collection
        
        ' 过滤掉包含NEW_LINE的内容
        For Each match In matches
            If InStr(match.Value, "NEW_LINE") = 0 Then
                resultList.Add match.Value
            End If
        Next match
        
        ' 将过滤后的结果逐个输出到右侧列
        For i = 1 To resultList.Count
            Cells(rowNum, outputCol + i - 1).Value = resultList(i)
        Next i
    Next cell
    
    ' 释放对象，避免内存占用
    Set regex = Nothing
    Set matches = Nothing
    Set resultList = Nothing
    
    MsgBox "提取完成！", vbInformation
End Sub

代码关键点说明： #

• 正则表达式："<[^>]*>" 精准匹配从<开始到>结束的完整片段，[^>]*表示匹配任意非>的字符，避免跨多个<>片段错误匹配。
• 遍历优化：用Union(Columns("D:D"), Columns("E:E"))同时处理目标列，SpecialCells(xlCellTypeConstants)只遍历有内容的单元格，提升运行效率。
• 过滤逻辑：通过InStr(match.Value, "NEW_LINE") = 0判断匹配内容是否包含指定文本，只保留符合要求的条目。
• 输出逻辑：将每个符合条件的结果单独输出到当前单元格的右侧列，和你最初代码的拆分输出逻辑保持一致。

使用步骤： #

1. 打开目标Excel文件，按下Alt + F11打开VBA编辑器
2. 右键点击左侧工作簿名称 → 插入 → 模块
3. 将上述代码粘贴到模块窗口中
4. 返回Excel界面，按下Alt + F8，选择ExtractBracketContent并执行

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