[已解决]高级筛选选择不重复记录还有重复的？

eikok

高级筛选选择不重复记录还有重复的？求教咋整，有vba代码能处理这个问题吗？
高级筛选选择不重复记录还有重复的.zip (274 Bytes, 下载次数: 14)

2016-3-31 16:36 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

sry660

2016-3-31 18:09

1. Sub 提取不重复值()
   
2.     Dim arr, i&, d, x
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = [a1].CurrentRegion
   
5.     For i = 1 To UBound(arr)
   
6.         x = arr(i, 1): d(x) = ""
   
7.     Next
   
8.     [d:d].ClearContents
   
9.     [d1].Resize(d.Count, 1) = Application.Transpose(d.keys)
   
10. End Sub

复制代码

跳转到最佳答案楼层

sry660

EXCEL把第一个4当作标题了，你给此列给个标题（如：数量），然后再用高级筛选，筛选不重复值，就可以了
建议：数据处理过程中，请尽量使用规范的数据（该加列标题的加上）

sry660

1. Sub 提取不重复值()
   
2.     Dim arr, i&, d, x
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = [a1].CurrentRegion
   
5.     For i = 1 To UBound(arr)
   
6.         x = arr(i, 1): d(x) = ""
   
7.     Next
   
8.     [d:d].ClearContents
   
9.     [d1].Resize(d.Count, 1) = Application.Transpose(d.keys)
   
10. End Sub

复制代码

eikok

sry660 发表于 2016-3-31 18:05
EXCEL把第一个4当作标题了，你给此列给个标题（如：数量），然后再用高级筛选，筛选不重复值，就可以了
建 ...

你说的太对了{:1112:}

eikok

sry660 发表于 2016-3-31 18:09

要从j列第三行提取不重复数据？.zip (14.02 KB, 下载次数: 2)

2016-4-1 13:21 上传

点击文件名下载附件
用上面的代码咋没有7呢？求教是哪里改错了？

sry660

eikok 发表于 2016-4-1 13:21
用上面的代码咋没有7呢？求教是哪里改错了？

1. Sub 提取不重复值()
   
2.     Dim arr, i&, d, x
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = Range("j3:j" & Cells(Rows.Count, "j").End(3).Row)                          '要提取数据从j3开始
   
5.     For i = 1 To UBound(arr)
   
6.         x = arr(i, 1): d(x) = ""                            '从数组的第1行开始循环
   
7.     Next
   
8.     [k:k].ClearContents
   
9.     [k3].Resize(d.Count, 1) = Application.Transpose(d.keys) '提取不重复值到k3位置
   
10. End Sub

复制代码

eikok

sry660 发表于 2016-4-1 13:28

多谢，就要这种效果{:1112:}