ZKX's LAB

vba 列重复数据 excel 用VBA如何删除一列中的重复数据

2021-04-25知识16

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

#vba 快速输入数据#vba 调用函数#vba 表单布局#vba 代码对照表#vba 列表框用法

随机阅读

qrcode
访问手机版