Excel自动化处理：移除单元格括号内容并拆分至多列

给你三种实用的自动化方案，按需选择：

1. 公式法（适合快速处理，无需额外工具） #

假设原始数据在A列，先在B列生成移除括号后的干净内容：
=TRIM(SUBSTITUTE(SUBSTITUTE(A1,MID(A1,SEARCH("(",A1),SEARCH(")",A1)-SEARCH("(",A1)+1),"")," "," "))

• 逻辑：先定位括号位置，把括号及内部内容替换为空，再用TRIM和二次SUBSTITUTE清理多余空格。
• 如果单元格有多个括号，可以把公式嵌套几次，或者用下面的Power Query更稳妥。

得到干净内容后，拆分到额外列：

• 如果你用的是Excel 365/2021，直接用TEXTSPLIT函数：=TEXTSPLIT(B1, " ")（把空格换成你的实际分隔符），公式会自动溢出到右侧列。
• 旧版Excel：选中B列数据，点击「数据」选项卡→「分列」，选择分隔符（比如空格），一步完成拆分。

2. Power Query法（适合批量+可重复更新） #

这个方法适合数据量较大，或者后续需要重复处理的场景：

1. 选中原始数据列，点击「数据」选项卡→「从表格/区域」（先把数据转成Excel表格）。
2. 在Power Query编辑器中，点击「添加列」→「自定义列」，输入公式：
   =Text.Trim(Text.RemoveBetween([你的原始列名], "(", ")"))
   （把「你的原始列名」换成实际列标题，比如「数据」）
3. 选中刚生成的「自定义列」，点击「转换」选项卡→「拆分列」→「按分隔符」，选择对应的分隔符（比如空格），设置拆分成“到列”。
4. 点击「关闭并上载」，结果会同步到新工作表，后续更新原始数据后，右键刷新即可自动重新处理。

3. VBA宏（适合一键批量处理） #

如果需要一键完成所有操作，可以写个简单的宏：

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

Sub RemoveBracketsAndSplit()
    Dim rng As Range
    Dim cell As Range
    Dim cleanText As String
    Dim splitArr As Variant
    Dim colOffset As Integer
    
    Set rng = Selection '选中要处理的单元格区域
    
    For Each cell In rng
        '循环移除所有括号及内容
        cleanText = cell.Value
        Do While InStr(cleanText, "(") > 0 And InStr(cleanText, ")") > InStr(cleanText, "(")
            cleanText = Left(cleanText, InStr(cleanText, "(") - 1) & Mid(cleanText, InStr(cleanText, ")") + 1)
        Loop
        cleanText = Trim(Replace(cleanText, "  ", " "))
        
        '拆分内容到右侧列
        splitArr = Split(cleanText, " ")
        colOffset = 1
        For Each item In splitArr
            cell.Offset(0, colOffset).Value = item
            colOffset = colOffset + 1
        Next item
    Next cell
End Sub

2. 回到Excel，选中需要处理的单元格区域，按Alt+F8选中宏名「RemoveBracketsAndSplit」，点击「执行」即可。

注意事项 #

• 如果单元格里的括号是中文全角括号，把代码和公式里的("("、")"换成"（"、"）"。
• 公式法如果遇到没有括号的单元格，也能正常返回原内容（清理空格后）。

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