[已解决]取唯一值

yunsin1015

求高手帮忙取出唯一值， 求唯一值.zip (13.75 KB, 下载次数: 23)

2012-8-20 15:51 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

周义坤

2012-8-20 16:07

1. Sub ek_sky()
   
2.     Dim arr, i&, d As Object
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = Range([B5], [B5].End(xlDown)).Value
   
5.     For i = 1 To UBound(arr)
   
6.         d(arr(i, 1)) = ""
   
7.     Next i
   
8.     Range("L5:L60000").ClearContents
   
9.     Range("L5").Resize(d.Count) = Application.Transpose(d.keys)
   
10. End Sub
    

复制代码

求唯一值.zip (19.43 KB, 下载次数: 11)

2012-8-20 16:07 上传

点击文件名下载附件

跳转到最佳答案楼层

hrpotter

L5

1. =INDEX(B:B,SMALL(IF(MATCH(B$5:B$99,B$5:B$99,)=ROW($1:$95),ROW(B$5:B$99),4^8),ROW(A1)))&""

复制代码

CTRL+SHIFT+ENTER三键结束下拉

周义坤

1. Sub ek_sky()
   
2.     Dim arr, i&, d As Object
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = Range([B5], [B5].End(xlDown)).Value
   
5.     For i = 1 To UBound(arr)
   
6.         d(arr(i, 1)) = ""
   
7.     Next i
   
8.     Range("L5:L60000").ClearContents
   
9.     Range("L5").Resize(d.Count) = Application.Transpose(d.keys)
   
10. End Sub
    

复制代码

求唯一值.zip (19.43 KB, 下载次数: 11)

2012-8-20 16:07 上传

点击文件名下载附件

周义坤

数组公式：

1. =INDEX(B:B,4+MATCH(,COUNTIF(L$4:L4,B$5:B$99),))

复制代码

yunsin1015

hrpotter 发表于 2012-8-20 15:57
L5CTRL+SHIFT+ENTER三键结束下拉

非常感谢！！！！

fulanks

感谢楼层们