如何运行一个宏就能在表中筛选出重复的数据？
时间：2011-08-12
来源：互联网
作者: chen556677 发布时间: 2011-08-12
作者: yangrongguan 发布时间: 2011-08-12
作者: chen556677 发布时间: 2011-08-12
作者: chen556677 发布时间: 2011-08-12
作者: yangrongguan 发布时间: 2011-08-12
作者: chen556677 发布时间: 2011-08-12
Dim i&, Myr&, Arr
Set d = CreateObject("Scripting.Dictionary")
Myr = Sheet1.[a65536].End(xlUp).Row
Arr = Sheet1.Range("a1:a" & Myr)
For i = 1 To UBound(Arr)
d(Arr(i, 1)) = ""
Next
Range("B1").Resize(d.Count, 1) = Application.Transpose(d.keys)
End Sub
作者: wkbu 发布时间: 2011-08-12
作者: chen556677 发布时间: 2011-08-12
引用:
原帖由 chen556677 于 2011-8-12 19:33 发表在另一列留下不是重复的 重复的全部删除
解释1：1、2、3、5、5、6，中的两个5全删除
解释2：1、2、3、5、5、6，中的两个5删除一个重复值，留下一个。
不知道我的表达对不对。
作者: wkbu 发布时间: 2011-08-12
重复的全部删除
解释1：1、2、3、5、5、6，中的两个5全删除
最好是不删除，执行之后用颜色表示重复的。
作者: chen556677 发布时间: 2011-08-12
作者: wkbu 发布时间: 2011-08-12
唯一重复.rar (10 KB)
作者: wkbu 发布时间: 2011-08-12
附件
获得A列不重复值.rar(12.55 KB)
2011-8-12 20:16, 下载次数: 0
作者: yangrongguan 发布时间: 2011-08-12
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读：74
-
如何安装mysql8.0
阅读：31
-
Word快速设置标题样式步骤详解
阅读：28
-
20+道必知必会的Vue面试题（附答案解析）
阅读：37
-
HTML如何制作表单
阅读：22
-
百词斩可以改天数吗？当然可以，4个步骤轻松修改天数！
阅读：31
-
ET文件格式和XLS格式文件之间如何转化？
阅读：24
-
react和vue的区别及优缺点是什么
阅读：121
-
支付宝人脸识别如何关闭?
阅读：21
-
腾讯微云怎么修改照片或视频备份路径?
阅读：28
