Excel电子表格多语言文本带附加符号特殊字符自动提取方法咨询

以下两种方法均为Excel内置功能实现，无需安装额外工具。

方法1：Power Query（推荐，无需复杂公式，适合仅会基础操作的用户） #

• 选中你的多语言文本所在的数据区域，点击顶部菜单栏「数据」选项卡 → 选择「从表格/区域」，弹出窗口确认勾选「我的表格有标题」后点击确定，进入Power Query编辑器
• 选中需要提取特殊字符的语言列，点击「添加列」选项卡 → 选择「自定义列」
• 在自定义列的公式输入框中填入以下代码，将[你的文本列名]替换为你实际要处理的列名（如列名为德语文本则替换为[德语文本]）：
  Text.Remove([你的文本列名], {"A".."Z","a".."z","0".."9"," "})
• 点击确定后，新生成的列会自动展示对应单元格内所有带附加符号的特殊字符，无特殊字符的单元格会显示为空
• 所有需要的列处理完成后，点击「主页」选项卡 → 「关闭并上载」，即可将处理完成的数据导回原Excel文件

提示：如果你的文本包含不需要提取的常规标点（如逗号、句号），可将对应符号加入上述公式的过滤列表中即可排除。

方法2：VBA自定义函数（适合需要直接在单元格内调用公式批量处理的场景） #

• 按Alt+F11快捷键打开VBA编辑器，右键点击左侧面板中你的工作簿名称 → 选择「插入」→「模块」
• 在弹出的代码编辑窗口粘贴以下内容：

Function 提取特殊字符(rng As Range) As String
    Dim i As Long
    Dim singleChar As String
    For i = 1 To Len(rng.Value)
        singleChar = Mid(rng.Value, i, 1)
        ' 过滤基础英文字母、数字、空格，保留其余字符
        If Not (singleChar Like "[A-Za-z0-9 ]") Then
            提取特殊字符 = 提取特殊字符 & singleChar
        End If
    Next i
End Function

• 关闭VBA编辑器回到表格，在要展示结果的单元格输入公式=提取特殊字符(目标单元格)，如要处理A2单元格则输入=提取特殊字符(A2)，下拉填充即可批量处理所有数据。

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