[已解决]如何利用字典法去除重复项存放在新列中

事后诸葛亮

求助：如何利用字典法去除重复项。

要求	在C列将A列去重复项后显示
说明：	A列数据个数不确定
	从C2单元格开始往下放结果

求助：利用字典法去除重复项.rar (1.63 KB, 下载次数: 9)

2014-5-19 21:30 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

风林火山

2014-5-19 22:31

1. Sub test()
   
2.     Dim arr, k%, d
   
3.     arr = Range("a2:a" & Cells(Rows.Count, 1).End(3).Row)
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     For k = 1 To UBound(arr)
   
6.         d(arr(k, 1)) = ""
   
7.     Next k
   
8.     Range("c2").Resize(d.Count, 1) = Application.WorksheetFunction.Transpose(d.keys)
   
9. End Sub
   

复制代码

跳转到最佳答案楼层

风林火山

1. Sub test()
   
2.     Dim arr, k%, d
   
3.     arr = Range("a2:a" & Cells(Rows.Count, 1).End(3).Row)
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     For k = 1 To UBound(arr)
   
6.         d(arr(k, 1)) = ""
   
7.     Next k
   
8.     Range("c2").Resize(d.Count, 1) = Application.WorksheetFunction.Transpose(d.keys)
   
9. End Sub
   

复制代码

蓝粆

学习一下