ZKX's LAB

vba判断重复数据 excel vba在三列数据中找重复数

2021-04-28知识12

怎么样用VBA快速的查找某一列是否有重复数据 看图就可以了。自己录一段宏就可以了。还有其他需要的话,可以帮你写一下VBA代码

用VBA统计重复数据,在一个多行多列的区域中,有大量的数据,其中许多是重复的。如果想显示出各数据的重复出现次数,是一件比较麻烦的事情,如果数据都分布在同一列中还好办。

excel vba在三列数据中找重复数 新建立一个宏,名为 find,自己设计快捷键,如果 数据特别多,在定义 a,b,c,t,m,n 的时候,可以改为 AS LongSub find()Dim checkb As BooleanDim checkc As BooleanDim a,b,c As IntegerDim t,m,n As IntegerDim r As Integercheckb=Falsecheckc=Falser=0Set f=Application.WorksheetFunctiona=f.CountA(Range(\"A:A\"))'统计A 列个数b=f.CountA(Range(\"B:B\"))'统计B 列个数c=f.CountA(Range(\"C:C\"))'统计C 列个数For t=1 To aFor m=1 To bIf Range(\"A\"&CStr(t))=Range(\"B\"&CStr(m))Thencheckb=TrueExit ForEnd IfNext '判断能不能在B列找到For n=1 To cIf Range(\"A\"&CStr(t))=Range(\"C\"&CStr(n))Thencheckc=TrueExit ForEnd IfNext '判断能不能在C列找到If checkb=True And checkc=True Thenr=r+1Range(\"D\"&CStr(r))=Range(\"A\"&CStr(t))End If '如果B,C,两列都找到,则在D列输出checkb=Falsecheckc=FalseNext

#vba重复项数据求和#字典vba提取重复值#vba字典提取重复值#vba提取不重复数据#vba提取不重复项

qrcode
访问手机版