[已解决]怎么去掉重复数据

mmc998

Book1.rar (6.31 KB, 下载次数: 21)

2014-11-1 19:05 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

qh8600

2014-11-1 19:24

1. Sub demo()
   
2.     Dim d As Object, ar, i
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     ar = Range(Cells(2, 1), Cells(2, Cells(2, Columns.Count).End(1).Column))
   
5.     For i = 1 To UBound(ar, 2)
   
6.         If Not d.Exists(ar(1, i)) Then
   
7.             d(ar(1, i)) = ""
   
8.         End If
   
9.     Next
   
10.     Range("a2").Resize(, UBound(ar, 2)).ClearContents
    
11.     Range("a2").Resize(, d.Count) = d.keys
    
12. End Sub
    

复制代码

附件楼下

跳转到最佳答案楼层

qh8600

1. Sub demo()
   
2.     Dim d As Object, ar, i
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     ar = Range(Cells(2, 1), Cells(2, Cells(2, Columns.Count).End(1).Column))
   
5.     For i = 1 To UBound(ar, 2)
   
6.         If Not d.Exists(ar(1, i)) Then
   
7.             d(ar(1, i)) = ""
   
8.         End If
   
9.     Next
   
10.     Range("a2").Resize(, UBound(ar, 2)).ClearContents
    
11.     Range("a2").Resize(, d.Count) = d.keys
    
12. End Sub
    

复制代码

附件楼下

qh8600

Book1.rar (13.6 KB, 下载次数: 15)

2014-11-1 19:25 上传

点击文件名下载附件
点击图片就可以了

Ex_EP

是的  86做的是针对一行的 我在86的基础上修改了下  把所有行都给删除了   谢谢 86的解答

1. Sub demo()
   
2.     Dim d As Object, ar, i, j
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     For j = 2 To Cells(2, 1).End(xlDown).Row
   
5.     ar = Range(Cells(j, 1), Cells(j, Cells(j, Columns.Count).End(1).Column))
   
6.     For i = 1 To UBound(ar, 2)
   
7.         If Not d.Exists(ar(1, i)) Then
   
8.             d(ar(1, i)) = ""
   
9.         End If
   
10.     Next
    
11.     Cells(j, 1).Resize(, UBound(ar, 2)).ClearContents
    
12.    Cells(j, 1).Resize(, d.Count) = d.keys
    
13.     d.RemoveAll
    
14.     Next j
    
15. End Sub
    

复制代码