如何去除单元格字符串中的重复字符或单词？

---

如果您需要清理 Excel 电子表格中包含重复字符或单词的单元格，本循序渐进教程适合您。Microsoft Excel 是一个有效的应用程序，用于处理数据，并提供许多用于文本操作的功能和方法。

在本教程中，我们将向您展示如何使用 Excel 的内置函数来去除单元格中重复的字符或单词。本课程将使您掌握有效简化数据以进行更好的分析或简单地清理电子表格的知识和技能。

去除单元格字符串中的重复字符或单词

在这里，我们将首先使用 VBA 创建一个用户定义的函数，然后使用公式，最后使用自动填充柄完成任务。让我们来看一个简单的流程，了解如何在 Excel 单元格的字符串中去除重复字符或单词。

步骤 1

考虑一个 Excel 表格，其中您有类似于下图的重复字符。

首先，右键单击工作表名称，然后选择“查看代码”以打开 VBA 应用程序。

右键点击 > 查看代码。

步骤 2

然后单击“插入”，选择“模块”，然后将下面的代码复制到文本框中。

插入 > 模块 > 复制。

代码

Function RemoveDupes1(pWorkRng As Range) As String
Dim xValue As String
Dim xChar As String
Dim xOutValue As String
Set xDic = CreateObject("Scripting.Dictionary")
xValue = pWorkRng.Value
For i = 1 To VBA.Len(xValue)
   xChar = VBA.Mid(xValue, i, 1)
   If xDic.Exists(xChar) Then
   Else
      xDic(xChar) = ""
      xOutValue = xOutValue & xChar
   End If
Next
RemoveDupes1 = xOutValue
End Function

步骤 3

现在使用 Alt + Q 关闭 VBA。然后单击一个空单元格，输入公式 =removedupes1(A2)，然后单击 Enter 获取第一个值。然后使用自动填充柄向下拖动。

Alt + Q > 空单元格 > 公式 > Enter > 拖动。

这就是如何在 Excel 中去除字符串中重复字符的方法。

注意

如果您想删除以逗号分隔的重复值，请使用以下代码并使用公式 =RemoveDupes2(A2,",")。

代码

Function RemoveDupes2(txt As String, Optional delim As String = " ") As String
   Dim x
   With CreateObject("Scripting.Dictionary")
      .CompareMode = vbTextCompare
      For Each x In Split(txt, delim)
         If Trim(x) <> "" And Not .exists(Trim(x)) Then .Add Trim(x), Nothing
      Next
      If .Count > 0 Then RemoveDupes2 = Join(.keys, delim)
   End With
End Function

结论

在本教程中，我们使用了一个简单的示例来演示如何从 Excel 单元格的字符串中删除重复字符或单词，以突出显示特定数据集。