动态提取1万条不重复值，只需0.01秒

祝洪忠-

本教程配套示例文件下载链接：

https://pan.baidu.com/s/1qYVtVR2

香川群子

如果用宏代码的话，也能简单解决，且无需高版本。

1. Sub DataUnique()  '提取不重复数据
   
2.     Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range(ActiveCell.Offset(Selection.Count + 3).Address), Unique:=True
   
3.     Range("Extract").Resize(Selection.Count).Sort Key1:=Range("Extract"), Order1:=xlAscending, Header:=xlYes: Range("Extract").Activate
   
4. End Sub

复制代码

用法：选中要提取不重复值的【单列】区域。然后执行代码
结果：以范围第1行为标题，在数据下面隔开3行开始，列出已经排序好的不重复值。

ae9480

很好用，感谢楼主分享

YZC51

跟学习下。谢谢老师！
Sub DataUnique()  '提取不重复数据
    On Error Resume Next
'    Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range(ActiveCell.Offset(Selection.Count + 3).Address), Unique:=True
    Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range(ActiveCell.Offset(0, 1).Address), Unique:=True '在下一列，列出已经排序好的不重复值。
    Range("Extract").Resize(Selection.Count).Sort Key1:=Range("Extract"), Order1:=xlAscending, Header:=xlYes: Range("Extract").Activate
End Sub
'用法：选中要提取不重复值的【单列】区域。然后执行代码
'结果：以范围第1行为标题，在数据下面隔开3行开始，列出已经排序好的不重复值。

tazuxingc

香川群子 发表于 2017-7-8 09:14
如果用宏代码的话，也能简单解决，且无需高版本。

大佬 可以教一下提取不重复值，并把重复项放在另一个sheet里面吗
我实在是才疏学浅 做不成

84745445

感谢分享啊

zhang131999

用数据透视表透视一下 它不香吗

hi_west

pq的速度这么快吗，为啥我的不这么快

火箭工程师

貌似看懂了

hu12345678910

感谢楼主分享