[已解决]求朋友帮助用VBA去重（三列全部相同算重复）

老九别走

跪求朋友帮助：
有若干组数据，每组三列，
希望用VBA去重（三列全部相同算重复），只要有一组数据不同也不算重复。详见附件。
预谢！


新建 Microsoft Excel 工作表.rar (4.84 KB, 下载次数: 53)

2013-9-21 14:09 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

美斯特邦威

2013-9-21 14:19

1. Sub abc()
   
2. Set d = CreateObject("scripting.dictionary")
   
3. Dim pp(1 To 100000, 1 To 3) As String
   
4. kk = Range("g12:i28").Value
   
5. For i = 1 To UBound(kk)
   
6. If Not d.exists(kk(i, 1) & kk(i, 2) & kk(i, 3)) Then
   
7. d(kk(i, 1) & kk(i, 2) & kk(i, 3)) = ""
   
8. pp(x + 1, 1) = kk(i, 1)
   
9. pp(x + 1, 2) = kk(i, 2)
   
10. pp(x + 1, 3) = kk(i, 3)
    
11. x = x + 1
    
12. End If
    
13. Next i
    
14. Range("j12").Resize(d.Count, 3) = pp
    
15. End Sub

复制代码

跳转到最佳答案楼层

美斯特邦威

1. Sub abc()
   
2. Set d = CreateObject("scripting.dictionary")
   
3. Dim pp(1 To 100000, 1 To 3) As String
   
4. kk = Range("g12:i28").Value
   
5. For i = 1 To UBound(kk)
   
6. If Not d.exists(kk(i, 1) & kk(i, 2) & kk(i, 3)) Then
   
7. d(kk(i, 1) & kk(i, 2) & kk(i, 3)) = ""
   
8. pp(x + 1, 1) = kk(i, 1)
   
9. pp(x + 1, 2) = kk(i, 2)
   
10. pp(x + 1, 3) = kk(i, 3)
    
11. x = x + 1
    
12. End If
    
13. Next i
    
14. Range("j12").Resize(d.Count, 3) = pp
    
15. End Sub

复制代码

老九别走

试用一下，超爽！
感谢美斯特邦威朋友的热情帮助！