求Excel代码：批量拆分含特定结构数值的不同格式文本

一、VBA宏实现（适合批量处理3000+行数据） #

以下VBA代码会遍历A列的所有数据，自动提取符合指定格式的内容，并将结果按匹配顺序输出到相邻的B列（若同一单元格有多个匹配项，用逗号分隔）。

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器
2. 右键点击左侧工程窗口中的当前工作簿，选择「插入」→「模块」
3. 将以下代码粘贴到模块中：

Sub ExtractTargetValues()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim cell As Range
    Dim regEx As Object
    Dim matches As Object
    Dim match As Object
    Dim result As String
    
    ' 设置要处理的工作表（可根据实际修改，比如Sheet1）
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ' 获取A列最后一行行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    ' 创建正则表达式对象
    Set regEx = CreateObject("VBScript.RegExp")
    
    ' 正则匹配模式：覆盖四种目标格式
    regEx.Pattern = "\d+-\d+\smonate|\d+-\d+\sTeilnehmer|\d+monate|\d+"
    regEx.Global = True ' 允许匹配多个结果
    regEx.IgnoreCase = False ' 区分大小写（按需调整）
    
    ' 遍历A列数据（假设A1是表头，从A2开始）
    For Each cell In ws.Range("A2:A" & lastRow)
        result = ""
        If cell.Value <> "" Then
            Set matches = regEx.Execute(cell.Value)
            ' 收集所有匹配到的内容
            For Each match In matches
                result = result & match.Value & ", "
            Next match
            ' 去除末尾多余的逗号和空格
            If result <> "" Then
                cell.Offset(0, 1).Value = Left(result, Len(result) - 2)
            End If
        End If
    Next cell
    
    ' 释放对象
    Set regEx = Nothing
    Set ws = Nothing
    MsgBox "数据提取完成！"
End Sub

4. 按下F5运行宏，或者回到Excel界面，通过「开发工具」→「宏」选择ExtractTargetValues执行

代码说明： #

正则表达式\d+-\d+\smonate|\d+-\d+\sTeilnehmer|\d+monate|\d+分别对应四种目标格式：

• \d+-\d+\smonate：匹配「数字-数字 monate」格式
• \d+-\d+\sTeilnehmer：匹配「数字-数字 Teilnehmer」格式
• \d+monate：匹配「数字monate」格式
• \d+：匹配单独的数字

若需要将不同类型的结果拆分到不同列（比如monate相关放B列，Teilnehmer放C列），可修改代码，为每种模式单独匹配并输出到对应列。

二、Excel公式实现（适合Office 365/2021版本） #

如果不想用VBA，可使用以下公式提取内容（Office 365直接回车，旧版本按Ctrl+Shift+Enter），假设原数据在A2单元格：

=TEXTJOIN(", ", TRUE, IFERROR(FILTERXML("<t><s>"&SUBSTITUTE(SUBSTITUTE(A2,"monate","</s><s>monate"),"Teilnehmer","</s><s>Teilnehmer")&"</s></t>","//s[contains(., 'monate') or contains(., 'Teilnehmer') or translate(., '0123456789', '')='']"),""))

该公式通过XML拆分文本后，筛选符合目标格式的内容并拼接。

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