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

运行效果，删除城市中重复的值：