excel取唯一值，也稱為提取不重復。在實際工作中，經常會使用到。
excel取唯一值的方法很多，比如通過高級篩選、函數公式以及自定義函數都可以實現。
我們以下圖為例，A列城市，有重復的。需要提取唯一值放在C列。
excel取唯一值方法一：
使用excel流行的篩選公式實現，C1輸入公式：=INDEX(A:A,SMALL(IF(MATCH(A$2:A$9,A$2:A$9,)=ROW($1:$8),ROW($2:$9),4^8),ROW(A1)))&""，按ctrl+shift+enter組合鍵結束。
公式的思路和理解，請參看：Excel用函數公式篩選數據的方法
excel取唯一值方法二：
單擊數據——高級篩選，可以直接篩選不重復值，即唯一值。使用高級篩選需要注意一點的是，必須包含列字段。比如下圖A2：A9只是數據內容，需要再選中A1，即列表區域為：A1：A9。其實設置參看下圖就OK。
excel取唯一值方法三：
excel中數據透視表本身就有去重復功能。單擊插入——數據透視表，然后勾選“城市”字段，唯一值就提取出來了。最后，也可以將數據透視表提取出來的唯一值復制到其余單元格，然后把不需要的數據透視表刪得即可。
具體可以參看下面的動畫演示，很簡單的操作過程。
excel取唯一值方法四：
學習VBA的朋友，也可以使用自定義函數取唯一值。
方法是：按Alt+F11組合鍵，插入→模塊→在VBE窗口中復制以下代碼，回到工作表中，C1單元格輸入公式：=wsingle($A$1:$A$9,ROW(A1))，下拉，直到出現0為止，A列所有的唯一不重復值就別提取出來了。
Function Wsingle(rng1 As Range, x As Integer)
Dim m As Range
Dim n As Range
Dim i As Integer
For Each m In rng1
k = k + 1
If k > Application.WorksheetFunction.CountA(rng1) + 10 Then Exit Function
If Application.WorksheetFunction.CountIf(rng1.Offset(k - 1, 0), m) = 1 Then
j = j + 1
If j = x Then
Wsingle = m
End If
End If
Next m
End Function
excel取唯一值方法五：
這個方法也是使用VBA代碼，按Alt+F11組合鍵，插入→模塊→在VBE窗口中復制以下代碼，并單擊工具欄的綠色“運行”按鈕，就可以實現將A列唯一值提取自動提取到B列。
Sub 取唯一值()
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
核心關注：拓步ERP系統平臺是覆蓋了眾多的業務領域、行業應用，蘊涵了豐富的ERP管理思想，集成了ERP軟件業務管理理念，功能涉及供應鏈、成本、制造、CRM、HR等眾多業務領域的管理，全面涵蓋了企業關注ERP管理系統的核心領域，是眾多中小企業信息化建設首選的ERP管理軟件信賴品牌。
轉載請注明出處：拓步ERP資訊網http://www.guhuozai8.cn/
本文標題：excel取唯一值的五種方法
相關文章
