如何在Excel中从无规则字符串提取并整理字母数字零件编码？

针对数千条无规律的零件记录，以下三种方案可替代手动操作，高效完成编号提取：

1. 原生Excel公式（快速实现，无需额外工具） #

利用FILTERXML结合文本替换模拟正则匹配，直接在目标单元格输入公式下拉即可：

=TEXTJOIN("",TRUE,FILTERXML("<t><s>"&SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"-"," "),"."," "),","," "),":"," ")&"</s></t>","//s[translate(.,'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz-.','')='']"))

说明：先将记录中的逗号、冒号等分隔符替换为空格，拆分出所有"单词"后，筛选出仅包含字母、数字、-、.的内容（即零件编号），最后合并结果。

2. Power Query（批量处理，可视化操作） #

适合大规模数据，操作步骤如下：

• 选中零件记录列，点击「数据」→「从表格/区域」，导入Power Query编辑器
• 添加自定义列，输入正则匹配公式（自动识别符合特征的编号）：

= List.First(List.Select(Text.Split([你的列名], " "), each Text.Matches(_, "^[A-Za-z0-9\-\.]+$")))

• 点击「关闭并上载」，提取结果自动同步到Excel新列，无需手动复制。

3. VBA宏（自动化重复任务） #

如果需要频繁处理这类数据，可编写宏一键完成：

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

Sub ExtractPartNumbers()
    Dim rng As Range, cell As Range
    Dim regEx As Object
    Set regEx = CreateObject("VBScript.RegExp")
    regEx.Pattern = "^[A-Za-z0-9\-\.]+$" '匹配零件编号的特征
    regEx.Global = True
    
    Set rng = Application.InputBox("选择包含零件记录的列", Type:=8)
    For Each cell In rng
        Dim matches As Object
        Set matches = regEx.Execute(cell.Value)
        If matches.Count > 0 Then cell.Offset(0, 1).Value = matches(0)
    Next cell
End Sub

3. 回到Excel，运行宏，选择目标列后，编号会自动提取到右侧列。

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