excel对同一个单元格中的内容去重

最新推荐文章于 2025-10-05 14:15:09 发布

原创最新推荐文章于 2025-10-05 14:15:09 发布 · 1.5w 阅读

16 ·

CC 4.0 BY-SA版权

文章标签：

#其他

本文详细介绍了如何在Excel中创建自定义函数以去除重复项。通过开发工具，插入VisualBasic模块，并编写VBA代码实现去重功能。该函数接受以逗号分隔的字符串作为输入，利用字典数据结构去除重复元素，最后重构字符串并返回去重后的结果。操作步骤清晰，适合Excel进阶用户学习。

该文章已生成可运行项目，

1、新建一个excel文件。
2、首先调出开发工具，如下图所示：
在这里插入图片描述
3、将开发工具打上对钩，如下图所示：

4、此时会多出一个开发工具tab，如下图所示：

5、选择Visual Basic，如下图所示：

6、在弹出的窗口中插入->模块，如下图所示：
**加粗样式**
7、输入如下代码，其中duplicateRemoval表示函数名称，等会会用到，result + “,” + wItem中的逗号是单元格内以什么符号分割的

Public Function duplicateRemoval(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

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

End Function

如下图所示：

在这里插入图片描述

8、保存，然后点击是，如下图所示：
在这里插入图片描述
9、在单元格中输入内容，如下图所示：

10、选择一个单元格，然后点击函数，选择全部，找到刚才新建的函数，如下图所示：

11、点击确定之后，选择单元格，我们选择刚才的单元

12、选择对应的单元格，如下图所示：
在这里插入图片描述
13、点击确定即可，如下图所示，由此可见对123,45,234去重了：

本文章已经生成可运行项目