VBA删除重复项（不使用字典）
众多网上的VBA去重技巧中，普遍依赖字典工具。实际上，巧妙运用split函数同样能达成此目标。
1、 假设A列是我们要处理的数据，包含了重复的项目，我们要把这些重复的项目剔除掉，然后贴在C列上。
2、 我们依旧按下熟悉的alt+f11进入vbe编辑器，新建一个模块输入代码：Sub 提取唯一值()Dim Rng As RangeDim Str As StringDim EndRowNo As IntegerEndRowNo = Range("A1").End(xlDown).Row ?"找出A列最大行数For Each Rng In Range("A2:A" & EndRowNo) "遍历A列每一个单元，如果没有和之前的值重复则合并到Str里去，并用“/”隔开? ? If Not Str Like "*" & Rng & "*" Then "用Not like判断值是否已经合并过? ? ? ? Str = Str & "/" & Rng? ? End IfNextStr = VBA.Mid(Str, 2, Len(Str)) "把生成的字符串中第一个“/”号去掉Dim arrarr = Split(Str, "/") "使用split函数生成数组，这个数组内的元素就是我们要找的唯一值了Range("c2:c" & UBound(arr) + 2) = WorksheetFunction.Transpose(arr) "把生成的数组贴到目标区域End Sub
文章标题：VBA删除重复项（不使用字典）
文章链接：//m.i-boarding.com/jiqiao/201122.html
为给用户提供更多有价值信息，ZOL下载站整理发布，如果有侵权请联系删除，转载请保留出处。
相关软件推荐
其他类似技巧
- 2024-08-15 16:54:02怎么给excel单元格设置上标和下标
- 2024-08-15 16:52:02Excel中的艺术字如何更改为竖排文字
- 2024-08-15 16:49:01在Excel表格中对多列数据求平均数？求平均数
- 2024-08-15 16:47:01Excel：如何使用MIN函数求取最小值
- 2024-08-15 16:46:01Excel表格怎么制作雷达图？
- 2024-08-15 16:41:02excel/wps工作表如何制作一个表格？
- 2024-08-15 16:37:02怎样批量在EXCEL单元格内容前面加空格
- 2024-08-15 16:36:02筑业资料软件表格导出Excel后，有单元格显示#号
- 2024-08-15 16:34:01在线编辑的excel怎么弄
- 2024-08-15 16:31:01表格怎么拆分为多个工作簿
Microsoft Office Excel2007软件简介
excel2007是2007版的Microsoft Office中的重要模块组件，Excel2007可以在电脑上编写电子表格，是最好用的办公软件，可以满足用户对表格的自定义编辑，还具有强大的图形功能，功能全面。zol提供excel2007官方版下载。excel2007具有强大插件平台支持，免费提供海量在线存储空间及wps文字文档模板，支持阅读和输出PDF文件，全...详细介绍?
