excel表格同一单元格里删除重复词

最新推荐文章于 2025-01-30 09:05:48 发布

^sky^

最新推荐文章于 2025-01-30 09:05:48 发布

阅读量8.6k

点赞数 6

分类专栏：网络推广文章标签： excel

原文链接：https://www.zhihu.com/question/51729819

版权

网络推广专栏收录该内容

17 篇文章

订阅专栏

本文介绍了一种使用VBA自定义函数在Excel单元格中去除重复词语的方法，通过创建和使用自定义函数，可以有效地从包含多个相同词语的单元格中保留唯一词语，适用于有特定分隔符或无分隔符的情况。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

转自知乎问题：同一个单元格里删除重复词，只保留一个唯一词怎么做？

如下图红框，有重复词：2个“舒缓”，3个“伤感”，效果是要删掉的词有：1个“舒缓”，2个“伤感”，只留下都是唯一词。

解决方案：

作者：靳伟
链接：https://www.zhihu.com/question/51729819/answer/127363442
来源：知乎
著作权归作者所有。商业转载请联系作者获得授权，非商业转载请注明出处。

思考再三, 老衲承认, 没啥简单的办法. 只好祭出自定义函数了. (其他法子这个更麻烦)

首先, 如果你看过老衲的Excel教程, 应该还记得怎么创建一个自定义函数. 忘了? 没关系, 老衲再演示一遍.

1. 首先调出"开发工具"这个菜单. 在选项里面.

2. 点开VBA, 进入VBA界面

3. 插入一个模块, 处女座可以对这个模块起个好名字. 老衲是水瓶座, 那就哈哈哈哈啦.

4. Coding: 时间紧就不逐一细说了. 还是非常简单的. 老衲的注释率超过20%啦～

Public Function deduplicate(duplicateWords As String)

'declaim some vars
Dim wArray As Variant


'Split the long string and Write in and deduplicate with dictionary

wArray = Split(duplicateWords, ",")

Set dic = CreateObject("scripting.dictionary")
    For i = 0 To UBound(wArray)
        dic(Trim(wArray(i))) = ""  'Trim the string in case of irragular text
    Next
    
'Reconstruct the long string
Dim result As String

For Each wItem In dic
   result = result + "," + wItem
Next

deduplicate = Right(result, Len(result) - 1) 'remove the extra comma and return

End Function

5. 这时候你已经有一个新公式了

6. 这个函数只需要把左边的列选中, 然后拖动一下, 问题解决. ~~

-------------------------------------------------------------------------------------------------------------------------------------------------------------------------

作者：jaffedream
链接：https://www.zhihu.com/question/51729819/answer/129509001
来源：知乎
著作权归作者所有。商业转载请联系作者获得授权，非商业转载请注明出处。

在靳伟大师代码的基础上，把【词语的分隔符】设为参数变量，应该完美了。

Public Function deduplicate(duplicateWords As String, sign As String)
    Dim result As String: Set dic = CreateObject("scripting.dictionary")
    If Len(sign) >= 1 Then
        Dim wArray As Variant: wArray = Split(duplicateWords, sign)
        For i = 0 To UBound(wArray): dic(Trim(wArray(i))) = ""
        Next
        For Each wItem In dic: result = result + sign + wItem
        Next
        deduplicate = Right(result, Len(result) - 1)
    ElseIf Len(sign) = 0 Then
        For i = 0 To Len(duplicateWords) - 1: dic(Trim(Mid(duplicateWords, i + 1, 1))) = ""
        Next
        For Each wItem In dic: result = result + sign + wItem
        Next
        deduplicate = result
    End If
End Function

调用函数时，传入【单元格和分隔符】，效果如下：

带分隔符效果