Excel查找重复值-VBA查找
方法/步骤
1、打开需要查找的excel表,查找需要的查找的A列
2、使用快捷键“ALT+F11”,弹出VBA编辑器,在编辑框中输入如下代码Sub同一列重复()Di葡矩酉缸mArr,i&,惺绅寨瞀Myr&,dSetd=CreateObject("Scripting.Dictionary")Sheet1.Activate[c:c].ClearMyr=[a1000000].End(xlUp).RowArr=Range("a1:A"&Myr)Fori=2ToUBound(Arr)IfNotd.exists(Arr(i,1))Thend(Arr(i,1))=""ElseCells(i,3)=“重复”EndIfNextEndSub
3、则会在重复值的C列显示重复2个字