如何在Excel中将单元格内的连续结构化文本拆分至多列？

方法1：Power Query（批量处理首选） #

1. 选中包含目标文本的单元格（比如J3），点击「数据」选项卡 → 「从表格/区域」，确认弹窗后进入Power Query编辑器。
2. 添加自定义列，输入以下公式（给所有表头前插入统一分隔符|）：

   = Text.Replace(Text.Replace(Text.Replace(Text.Replace(Text.Replace(Text.Replace(Text.Replace([Column1], "Customer:", "|Customer:"), "Project Name & Number:", "|Project Name & Number:"), "Project Summary:", "|Project Summary:"), "Projected Annual Value:", "|Annual Value:"), "Customer’s Application / Brand:", "|Customer's Application/Brand:"), "Product Code and Name:", "|Product Code and Name:"), "Value Proposition:", "|Value Proposition:"), "Sales Account Manager:", "|Sales Account Manager:")
   

3. 选中这个自定义列，点击「拆分列」→「按分隔符」，选择|，拆分到「列」。
4. 删除空列，将第一行提升为表头，调整格式后加载回Excel，直接得到目标表格。

方法2：自定义VBA函数（公式式批量提取） #

1. 按Alt+F11打开VBA编辑器，插入新模块，粘贴以下代码：

   Function ExtractField(text As String, fieldName As String) As String
       Dim startPos As Integer, endPos As Integer
       startPos = InStr(text, fieldName & ":") + Len(fieldName & ":")
       Dim nextFields As Variant
       nextFields = Array("Customer:", "Project Name & Number:", "Project Summary:", "Projected Annual Value:", "Customer’s Application / Brand:", "Product Code and Name:", "Value Proposition:", "Sales Account Manager:")
       endPos = Len(text) + 1
       For Each f In nextFields
           If f <> fieldName & ":" Then
               Dim pos As Integer
               pos = InStr(startPos, text, f)
               If pos > 0 And pos < endPos Then endPos = pos
           End If
       Next f
       ExtractField = Trim(Mid(text, startPos, endPos - startPos))
   End Function
   

2. 保存后回到Excel，在目标单元格输入=ExtractField(J3,"Customer")提取对应字段，其他字段只需修改第二个参数（比如=ExtractField(J3,"Project Name & Number")），拖拽填充即可批量完成。

方法3：记事本替换+文本分列（快速手动操作） #

1. 把单元格里的文本复制到记事本，用「替换」功能：将每个表头（比如Customer:、Project Name & Number:）都替换为制表符（替换框里直接按Tab键输入制表符）。
2. 替换完成后复制回Excel，选中粘贴的区域，点击「数据」→「文本分列」，选择「分隔符号」→「制表符」，完成后调整表头就能得到目标格式。

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