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

最新推荐文章于 2024-03-27 15:55:44 发布

葬心啊

最新推荐文章于 2024-03-27 15:55:44 发布

阅读量1.4k

点赞数 1

分类专栏： java 后端文章标签： java 后端

本文链接：https://blog.csdn.net/m0_54849873/article/details/123601549

版权

java 同时被 2 个专栏收录

208 篇文章 12 订阅

订阅专栏

后端

12 篇文章 0 订阅

订阅专栏

本文详细介绍了如何使用Excel的Visual Basic for Applications (VBA) 编程语言，通过创建自定义函数实现对单元格内容的重复项去除。步骤包括设置开发工具、编写和应用去重函数，适用于快速处理数据清洗。

摘要由CSDN通过智能技术生成

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去重了：