嘿，这个需求太常见了！我来给你分享几个实用的技巧，不管你是喜欢用Excel原生公式，还是可视化的Power Query工具，甚至需要自动化的VBA，都能轻松搞定👇

方法一：用Excel公式直接提取（适合少量数据） #

假设你的数据在A列，表头Name、Address、Age分别在B1、C1、D1单元格，那你可以在B2单元格输入这个公式：

=MID($A2,SEARCH(B$1&": ",$A2)+LEN(B$1&": "),IFERROR(SEARCH(" "&INDEX($B$1:$D$1,COLUMN()+1)&": ",$A2)-SEARCH(B$1&": ",$A2)-LEN(B$1&": "),LEN($A2)-SEARCH(B$1&": ",$A2)-LEN(B$1&": ")+1))

输入完按回车，然后把公式向右拖动到D2，再向下拖动到所有数据行就可以了。

公式逻辑解释： #

• SEARCH(B$1&": ",$A2)：定位当前表头（比如Name）加: 的位置
• MID(...)：从定位点的下一位开始提取内容
• IFERROR(...)：专门处理最后一个字段（比如Age）——因为它后面没有下一个表头，直接提取到单元格末尾就行

如果你的表头格式有变化（比如冒号后没有空格），记得把公式里的": "改成对应的格式哦。

方法二：Power Query（推荐！适合批量数据） #

如果你的数据量比较大，或者以后还要处理类似数据，Power Query是更高效的选择：

1. 选中A列数据，点击「数据」选项卡 → 「从表格/区域」（如果提示数据有没有表头，选「我的表格有标题」或者「没有」都可以，后续能调整）
2. 进入Power Query编辑器后，点击「添加列」→ 「自定义列」，分别添加三个自定义列：
   • 提取Name：= Text.Between([Column1], "Name: ", " Address: ")
   • 提取Address：= Text.Between([Column1], "Address: ", " Age: ")
   • 提取Age：= Text.AfterDelimiter([Column1], "Age: ")
3. 选中原数据列（Column1）右键删除；然后点击「关闭并上载」，处理好的数据就会导入到新工作表里了

这个方法的好处是，以后新数据进来，只需要刷新一下查询就能自动拆分，不用重复操作。

方法三：VBA宏（适合需要自动化重复操作的场景） #

如果你经常要处理这类数据，可以写个简单的宏一键搞定：

1. 按Alt+F11打开VBA编辑器
2. 右键点击左侧的工作表名称 → 「插入」→ 「模块」
3. 粘贴下面的代码：

Sub SplitDataByHeaders()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim cellText As String
    Dim namePos As Integer, addrPos As Integer, agePos As Integer
    
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 自动设置表头（如果还没设置的话）
    ws.Range("B1").Value = "Name"
    ws.Range("C1").Value = "Address"
    ws.Range("D1").Value = "Age"
    
    For i = 2 To lastRow
        cellText = ws.Range("A" & i).Value
        ' 提取Name
        namePos = InStr(cellText, "Name: ") + Len("Name: ")
        addrPos = InStr(cellText, "Address: ")
        ws.Range("B" & i).Value = Trim(Mid(cellText, namePos, addrPos - namePos))
        
        ' 提取Address
        addrPos = addrPos + Len("Address: ")
        agePos = InStr(cellText, "Age: ")
        ws.Range("C" & i).Value = Trim(Mid(cellText, addrPos, agePos - addrPos))
        
        ' 提取Age
        agePos = agePos + Len("Age: ")
        ws.Range("D" & i).Value = Trim(Mid(cellText, agePos))
    Next i
End Sub

4. 回到Excel，按Alt+F8，选中SplitDataByHeaders点击「运行」，数据就自动拆分好了

注意事项： #

• 如果你的表头文本、格式有变化（比如大小写不同、冒号后没有空格），记得调整代码里的匹配字符串（比如把"Name: "改成"name:"）
• 如果有更多表头，只需要在代码里添加对应的提取逻辑就行

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