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
如下图所示:
![在这里插入图片描述](https://img-blog.csdnimg.cn/ca4e2fa2e36e4d9caf7488e2526c1b3f.png?x-oss-process=image/watermark,type_d3F5LXplbmhlaQ,shadow_50,text_Q1NETiBAc3hqbGludXg=,size_20,color_FFFFFF,t_70,g_se,x_16)
8、保存,然后点击是,如下图所示: 9、在单元格中输入内容,如下图所示: 10、选择一个单元格,然后点击函数,选择全部,找到刚才新建的函数,如下图所示: 11、点击确定之后,选择单元格,我们选择刚才的单元 12、选择对应的单元格,如下图所示: 13、点击确定即可,如下图所示,由此可见对123,45,234去重了: ![在这里插入图片描述](https://img-blog.csdnimg.cn/c722a763f7814609bf6639c13073c26b.png)
|