如何将Excel工作表同一列中的相似文本值统一为单一值？

嘿，这个问题我之前帮同事解决过好多次！在Excel里统一这类相似的公司名称，根据数据量和精准度需求，有几个实用的方法可选：

方法1：手动映射表 + 查找函数（适合小数据集） #

如果你的数据行数不多（几十到上百行），手动整理映射表是最直接的方式：

• 第一步：先整理出标准值列表（比如你想要统一成ABC Company），然后把所有变体（ABC Company.、ABC Comp.、ABC Com.等）列出来，做成两列：一列是变体值，一列是对应的标准值。
• 第二步：用XLOOKUP（Excel 365/2021支持）或者VLOOKUP来匹配替换，公式示例：

  =XLOOKUP(A2, $D$2:$D$10, $E$2:$E$10, A2)
  

  解释：A2是要处理的单元格，D列是变体值，E列是标准值，如果找不到匹配项就返回原内容。
• 进阶技巧：可以用通配符简化映射表，比如把变体列写成ABC*，这样所有以ABC开头的内容都会匹配到标准值ABC Company。

方法2：Power Query批量模糊清洗（适合大数据集） #

如果数据量很大（几百上千行），Power Query的模糊匹配功能能帮你高效批量处理：

1. 选中要处理的列，点击「数据」选项卡 →「从表格/区域」导入Power Query（确保数据有表头）。
2. 在Power Query编辑器中，点击「转换」选项卡 →「分组依据」，选择「高级」：
   • 添加分组列，选择你的公司名列，然后在「操作」里选择「所有行」。
   • 接着点击「添加列」→「自定义列」，用模糊匹配函数找到最相似的标准值，或者直接用Power Query的「模糊分组」功能（部分版本支持）：点击「开始」→「分组依据」→ 选择「模糊分组」，设置相似度阈值（比如80%），系统会自动把相似的内容归为一组，你只需要给每组指定标准值即可。
3. 处理完成后，点击「关闭并上载」，把清洗后的数据导回Excel。

方法3：自定义VBA函数（适合反复使用的场景） #

如果需要经常处理这类需求，可以写个简单的VBA函数，基于文本相似度自动匹配标准值：

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

   Function StandardizeCompany(companyName As String, standardList As Range) As String
       Dim cell As Range
       Dim similarity As Double
       ' 设置相似度阈值（0-1之间，值越高匹配越严格）
       Const threshold As Double = 0.8
       
       For Each cell In standardList
           ' 计算文本相似度（基于Levenshtein距离）
           similarity = 1 - (LevenshteinDistance(companyName, cell.Value) / Max(Len(companyName), Len(cell.Value)))
           If similarity >= threshold Then
               StandardizeCompany = cell.Value
               Exit Function
           End If
       Next cell
       ' 无匹配时返回原名称
       StandardizeCompany = companyName
   End Function
   
   ' 辅助函数：计算Levenshtein距离（衡量文本差异度）
   Function LevenshteinDistance(s1 As String, s2 As String) As Integer
       Dim arr() As Integer
       Dim i As Integer, j As Integer
       Dim len1 As Integer, len2 As Integer
       
       len1 = Len(s1)
       len2 = Len(s2)
       ReDim arr(len1, len2)
       
       For i = 0 To len1: arr(i, 0) = i: Next i
       For j = 0 To len2: arr(0, j) = j: Next j
       
       For i = 1 To len1
           For j = 1 To len2
               If Mid(s1, i, 1) = Mid(s2, j, 1) Then
                   arr(i, j) = arr(i - 1, j - 1)
               Else
                   arr(i, j) = 1 + Min(arr(i - 1, j), arr(i, j - 1), arr(i - 1, j - 1))
               End If
           Next j
       Next i
       
       LevenshteinDistance = arr(len1, len2)
   End Function
   
   ' 辅助函数：取三个数的最小值
   Function Min(a As Integer, b As Integer, c As Integer) As Integer
       Min = a
       If b < Min Then Min = b
       If c < Min Then Min = c
   End Function
   
   ' 辅助函数：取两个数的最大值
   Function Max(a As Integer, b As Integer) As Integer
       Max = IIf(a > b, a, b)
   End Function
   

2. 返回Excel，在单元格中使用函数：

   =StandardizeCompany(A2, $D$2:$D$10)
   

   解释：A2是要处理的单元格，$D$2:$D$10是你的标准公司名列表，函数会自动匹配相似度≥80%的标准值。

额外小技巧 #

预处理文本能大幅提升匹配准确率：

• 统一大小写：用=LOWER(A2)把所有文本转成小写。
• 去除标点符号：用=SUBSTITUTE(SUBSTITUTE(A2, ".", ""), ",", "")去掉句号、逗号等标点。
• 去掉多余空格：用=TRIM(A2)清理首尾空格。

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