excel取不重復值方法一：高級篩選
A列姓名有重復的，將A列姓名取不重復值之后放在C列。
操作方法是：單擊數據——高級，打開“高級篩選”對話框，進行如下圖設置。
excel取不重復值方法二：SQL
單擊數據——現有連接，單擊最下面的“瀏覽更多”，按照路徑找到文件，彈出的“導入數據”對話框，單擊“屬性”，打開“連接屬性”對話框，切換到“定義”選項卡，在“命令文本”輸入：select distinct 姓名 as 不重復姓名 from [Sheet1$]，確定。
SQL的動畫演示相關教程參考論壇帖子：http://www.blwbbs.com/forum.php?mod=viewthread&tid=2141&highlight=select
excel取不重復值方法三：VBA
按ALT+F11，打開VBE編輯器界面，單擊插入——模塊，復制下面的代碼，然后按F5鍵運行，在B1開始提取A列不重復姓名。
Sub excel取不重復值()
Dim d As Object
Dim lRow As Long
Dim i As Long
Dim str As Variant
Dim strKey As String
Set d = CreateObject("scripting.dictionary")
lRow = Range("A65536").End(xlUp).Row
str = Range("A1:A" & lRow)
For i = 1 To lRow
strKey = CStr(str(i, 1))
If Not d.exists(strKey) Then
d.Add strKey, strKey
End If
Next i
Range("B1").Resize(UBound(d.keys) + 1, 1) = Application.Transpose(d.keys)
End Sub
excel取不重復值方法四：函數
B1單元格留空或者輸入文字“不重復姓名”，然后在B2單元格輸入公式：=OFFSET($A$1,MATCH(,COUNTIF($B$1:B1,$A$2:$A$15),),)&""，按ctrl+shift+enter，三鍵結束數組公式，完成不重復值提取。
核心關注：拓步ERP系統平臺是覆蓋了眾多的業務領域、行業應用，蘊涵了豐富的ERP管理思想，集成了ERP軟件業務管理理念，功能涉及供應鏈、成本、制造、CRM、HR等眾多業務領域的管理，全面涵蓋了企業關注ERP管理系統的核心領域，是眾多中小企業信息化建設首選的ERP管理軟件信賴品牌。
轉載請注明出處：拓步ERP資訊網http://www.vmgcyvh.cn/
本文標題：excel取不重復值的四種方法
相關文章
