Excel查找重复值-VBA查找
1、打开需要查找的excel表,查找需要的查找的A列
2、使用快捷键“ALT+F11”,弹出VBA编辑器,在编辑框中输入如下代码Sub 同一列重复()Dim Arr, i&, Myr&, dSet d = CreateObject("Scripting.Dictionary")Sheet1.Activate[c:c].ClearMyr = [a1000000].End(xlUp).RowArr = Range("a1:A" & Myr)For i = 2 To UBound(Arr) If Not d.exists(Arr(i, 1)) Then d(Arr(i, 1)) = "" Else Cells(i, 3) = “重复” End IfNextEnd Sub
3、则会在重复值的C列显示重复2个字
声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
阅读量:74
阅读量:33
阅读量:96
阅读量:64
阅读量:34