[已解决]提取不重复数据

龙送农

提取不重复信息：B列有重复相同信息，用函数公式（或VBA）提取，每个信息显示1次。要解决B列信息超过26行时显示没完信息，而信息少于26行时出现乱码。

最佳答案

月排行榜 / 总排行榜

26759761@qq.com

2015-3-30 14:57

vba方法

1. Sub 提取不重复()
   
2. Dim d, ar, x
   
3. Set d = CreateObject("scripting.dictionary")
   
4.   ar = Range("b1:b" & [b65500].End(3).Row)
   
5.   For x = 1 To UBound(ar)
   
6.     d(ar(x, 1)) = ""
   
7.   Next
   
8.   Range("h1").Resize(d.Count) = Application.Transpose(d.keys)
   
9. End Sub
   

复制代码

跳转到最佳答案楼层

心正意诚身修

見附檔.=LOOKUP(,0/FREQUENCY(0,COUNTIF(J$1:K2,B$2:B$999)),B$2:B$999)&""原來象山海鮮也答過這個問題的.

26759761@qq.com

vba方法

1. Sub 提取不重复()
   
2. Dim d, ar, x
   
3. Set d = CreateObject("scripting.dictionary")
   
4.   ar = Range("b1:b" & [b65500].End(3).Row)
   
5.   For x = 1 To UBound(ar)
   
6.     d(ar(x, 1)) = ""
   
7.   Next
   
8.   Range("h1").Resize(d.Count) = Application.Transpose(d.keys)
   
9. End Sub
   

复制代码

skyline_zwl

26759761@qq.com 发表于 2015-3-30 14:57
vba方法

关于字典的keys用法想请您解释一下，就是这句
d(ar(x, 1)) = ""
谢谢。

skyline_zwl

skyline_zwl 发表于 2015-3-30 15:13
关于字典的keys用法想请您解释一下，就是这句
d(ar(x, 1)) = ""
谢谢。

这样一来，是说所有的keys，对应的item都是空格，最后我们只是transpose keys就可以了 的意思么？

qinqh_yl

L2公式稍改一下就可以：
=OFFSET(B$1,MATCH(,COUNTIF(L$1:L1,B$2:B$999),),)&""
数组公式。

原K2公式稍改一下也能用：
=INDEX(B:B,SMALL(IF(MATCH(B$2:B$1000&"",B$2:B$1000&"",)=ROW($1:$999),ROW($2:$1000),9999),ROW(A1)))&""
数组公式。

龙送农

26759761@qq.com 发表于 2015-3-30 14:57
vba方法

同时提取三列不重复信息问题
http://www.excelpx.com/thread-367062-1-1.html