人气 9116

[Excel技巧] excel筛选重复数据获取唯一值 [复制链接]

zzs1808 2022-4-21 20:26:34
在实际工作中,excel往往需要提取不重复值。在excel中删除重复数据,取唯一值。有很多方法:可以用函数公式、高级筛选、数据透视表、VBA等手段。
这里介绍一个VBA的方法,直接运行即可去掉重复值。不用填写任何参数,但是要注意所在的行和列。
SubCCF()
DimiAsRange
DimnAsLong
n=1
ForEachiInRange("a1:a100")
IfApplication.WorksheetFunction.CountIf(Range("$A$1:"&i.Address),i)=1Then
Cells(n,2)=i
n=n+1
EndIf
Next
EndSub
运行效果,删除城市中重复的值:

1516441372467841.png

1516441372467841.png
您需要登录后才可以回帖 登录 | 立即注册

QQ|手机版|精益人 ( 沪ICP备19004111号-1 )

GMT+8, 2024-3-28 17:49 , Processed in 0.232972 second(s), 21 queries .

Powered by Lean.ren X3.4 Licensed  © 2001-2030 LEAN.REN