excel vba 如何实现识别出某列重复数据 容易,VBA可以实现,Q(1048818630)
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统计重复数据,在一个多行多列的区域中,有大量的数据,其中许多是重复的。如果想显示出各数据的重复出现次数,是一件比较麻烦的事情,如果数据都分布在同一列中还好办。