[分享]条条大路去重复

mdc9

杨小军 发表于 2012-12-13 22:34
这里就以index函数讲一下吧

会自动提取么？  这里是到16行，如果在增加数据呢？比如到了20行，公式还得手动改为$A$2:A$20么？这样的绝对引用会自动变化么？

syjj2099

好，太好了

sunzhaowei

学习了， 请大神帮忙解决此问题http://club.excelhome.net/thread-1302780-1-1.html

sunzhaowei

杨小军 发表于 2012-12-13 22:34
这里就以index函数讲一下吧

学习了， 请大神帮忙解决此问题http://club.excelhome.net/thread-1302780-1-1.html

wujie632

在各种提取不重复项的方法中，最快的是07版及以上版本的删除重复项速度最快，要知道高级筛选出来的早，删除重复项到07版本才有，速度不快不会推出的！尤其对于大量数据运行尤其突出！vba字典等方法也不快！这里仅仅比较excel自带的高级筛选和删除重复项（先把数据源复制后再使用删除重复项来提取不重复值）2种方法，有兴趣和需求的请测试比较。
重复项.rar (1.83 MB, 下载次数: 12)

2017-2-23 17:55 上传

点击文件名下载附件

1. 
   
2. Sub 高级筛选()
   
3. t = Timer
   
4. Range("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Columns("d:D"), Unique:=True
   
5. [g1] = "高级筛选:" & Timer - t & "秒"
   
6. End Sub
   
7. Sub 删除重复项()
   
8. t = Timer
   
9. ysj = [a1].CurrentRegion '提取AB数据源
   
10. Range("d" & 1).Resize(UBound(ysj), 1) = ysj '写入数据源到DE列
    
11. [d1].CurrentRegion.RemoveDuplicates Columns:=Array(1), Header:=xlNo '利用07版及以上自带的删除重复项
    
12. [g2] = "删除重复项:" & Timer - t & "秒"
    
13. End Sub
    
14. 
    
15. Sub 删除重复项()
    
16. t = Timer
    
17. ysj = [a1].CurrentRegion '提取AB数据源
    
18. Range("d" & 1).Resize(UBound(ysj), 2) = ysj '写入数据源到DE列
    
19. [d1].CurrentRegion.RemoveDuplicates Columns:=Array(1, 2), Header:=xlNo '利用07版及以上自带的删除重复项
    
20. [g2] = "删除重复项:" & Timer - t & "秒"
    
21. End Sub
    

复制代码

白衬衫2017

学习了，谢谢

dsduanduan

大神牛皮啊，正在学习中

km122712

真是方法多多，各种方法，可在各种场景分别应用，感谢楼主分享！

忘情的城市

厉害，跟着学，除了SQL都跟着学了一遍 感谢