excel筛选重复数据获取唯一值

在实际工作中，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