在实际工作中，excel往往需要提取不重复值。
在excel中删除重复数据，取唯一值。有很多方法：可以用函数公式、高级筛选、数据透视表、VBA等手段。
这里介绍一个VBA的方法，直接运行即可去掉重复值。不用填写任何参数，但是要注意所在的行和列。
Sub CCF()
Dim i As Range
Dim n As Long
n = 1
For Each i In Range("a1:a100")
If Application.WorksheetFunction.CountIf(Range("$A$1:" & i.Address), i) = 1 Then
Cells(n, 2) = i
n = n + 1
End If
Next
End Sub运行效果，删除城市中重复的值：
