excel - 删除 Excel 单元格内的重复项

Question

假设我在一个 Excel 单元格中有以下文本字符串:

John John John Mary Mary

我想创建一个公式(所以不要使用菜单函数或 VBA)，它可以在另一个单元格上为我提供

John Mary

我该怎么做？

到目前为止，我尝试过在互联网上搜索有关该问题的信息，我所能找到的只是涉及 Excel 内置重复项删除或涉及 countif 以及替换重复项的解决方案“”。我还查看了 Excel 函数列表，尤其是“文本”类别中的函数，但找不到任何可以在一个单元格上完成的有趣内容。

Answer 1

答案在这里:https://www.extendoffice.com/documents/excel/2133-excel-remove-duplicate-characters-in-string.html

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

将上面的代码放在一个模块中

使用=RemoveDupes2(A2,",")A2 包含由 , 分隔的重复文本您可以更改分隔符