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

假设每个单元格中都有重复的字符或单词，您希望删除这些重复项并仅保留唯一的字符或单词。在Excel中，您该如何解决这个问题呢？

使用用户定义函数删除文本字符串中的重复字符

使用用户定义函数删除由标点分隔的重复单词

使用用户定义函数删除文本字符串中的重复字符

如果您有一个文本字符串列表，现在需要像下图所示那样删除重复字符。在这里，我可以介绍一个VBA代码来处理它。

1. 按住ALT + F11键打开Microsoft Visual Basic for Applications窗口。

2. 点击插入 > 模块，并将以下代码粘贴到模块窗口中。

VBA代码：删除单元格中文本字符串的重复字符

Function RemoveDupes1(pWorkRng As Range) As String
'Updateby Extendoffice
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. 然后保存并关闭此代码，返回工作表，在数据旁边的一个空白单元格中输入公式 =removedupes1(A2) （A2是您要删除重复项的数据单元格），请参见截图：

4. 接下来，将填充柄拖动到要应用此公式的单元格范围，所有重复字符都会立即从每个单元格中删除。

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

使用用户定义函数删除由标点分隔的重复单词

如果单元格中有一些由特定标点符号分隔的单词，您也可以根据需要删除这些重复的单词。请按照以下步骤操作：

1. 按住 ALT + F11键打开Microsoft Visual Basic for Applications窗口。

2. 点击插入 > 模块，并将以下代码粘贴到模块窗口中。

VBA代码：删除单元格中由标点分隔的重复单词

Function RemoveDupes2(txt As String, Optional delim As String = " ") As String
    Dim x
    'Updateby Extendoffice
    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

3. 然后保存并关闭此代码，返回工作表，在数据旁边的一个空白单元格中输入公式 =RemoveDupes2(A2,",")，请参见截图：

4. 然后将公式向下复制到所需的单元格中，所有重复的单词都会从每个单元格中删除。请参见截图：

注意：在上述公式中，A2表示您要使用的单元格，逗号（,）代表用于分隔单元格中单词的标点符号，您可以根据需要将其更改为其他标点符号。