作者：绿色风
分类：
时间：2022-08-17
浏览：173
楼主
amulee |
Q：如何用VBA删除内容相同而排列不同的重复项？
A：同样利用字典，可以先将字符串转化为数组，排序后再转化为字符串，再用字典去重复。
- Sub 去重复()
- Dim ArrYS, ArrJG, ArrTemp
- Dim i&, Temp
- Dim d1 As Object
- Dim d2 As Object
- Set d1 = CreateObject("Scripting.Dictionary")
- Set d2 = CreateObject("Scripting.Dictionary")
- ArrYS = Range("A1:A8")
- For i = 1 To UBound(ArrYS)
- ArrTemp = Split(ArrYS(i, 1), " ") '将各内容转化为数组
- If UBound(ArrTemp) > 0 Then '排序
- Call ArrSort(ArrTemp) '数组排序
- End If
- '排序后再转为字符串，再利用字典判断
- Temp = Join(ArrTemp)
- If Not d1.exists(Temp) Then
- d1(Temp) = 1
- d2(ArrYS(i, 1)) = 1
- End If
- Next i
- '输出结果
- Range("C1").Resize(d2.Count, 1) = WorksheetFunction.Transpose(d2.keys)
- End Sub
- Sub ArrSort(ByRef ArrYS) '数组排序
- Dim i&, j&
- Dim Temp
- For i = LBound(ArrYS) To UBound(ArrYS) - 1
- For j = i + 1 To UBound(ArrYS)
- If ArrYS(i) > ArrYS(j) Then
- Temp = ArrYS(i)
- ArrYS(i) = ArrYS(j)
- ArrYS(j) = Temp
- End If
- Next j
- Next i
- End Sub
 删除排列不同的重复项.rar
|
2楼
xyf2210 |
学习字典 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一