如何使用VBA删除多列中部分重复内容？

作者：绿色风分类：时间：2022-08-17 浏览：92

楼主 wise	Q:如何使用VBA删除多列中部分重复内容？ A：ALT+F11→添加模块→模块中输入以下内容： Sub test() Dim d As Object, m&, Arr, x$ Application.ScreenUpdating = False Range("M:L").ClearContents '清除M:L列数据 Set d = CreateObject("scripting.dictionary") '创建字典对象 Arr = Range("A1").CurrentRegion '把当前单元格内容赋予给数组Arr For i = 1 To UBound(Arr) '循环数组 x = Arr(i, 2) & "-" & Arr(i, 3) & "-" & Arr(i, 4) '将B、C、D等4列内容组合成一个x If Not d.exists(x) Then '如果数组中不存在 m = m + 1 '生成一个累计器 d(x) = m '往字典添加不重复的内容 Cells(m, 8).Resize(1, 5) = Application.Index(Arr, i, 0) '数组中相应的内容赋予给相应的区域 End If Next i Application.ScreenUpdating = True End Sub 去重复.rar
2楼 eliane_lei	学习。谢谢分享
3楼龙行九州	学习，下载了。
4楼 icenotcool

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表