方法一：利用高级筛选
1.单击菜单“数据→筛选→高级筛选”。
2.在“高级筛选”对话框中，选择“将筛选结果复制到其他位置”，并且勾选“选择不重复的记录”，单击“列表区域”文本框右侧的按钮，选择区域A2：A21，表示需要筛选的数据区为A2：A21,同样，将“复制到”区域设置为$C$2，如图。
3.单击“确定”。Excel将把筛选后的结果放置到C2：C18中，去掉了其中的3个重复值。
方法二：利用公式和排序
利用COUNTIF函数来确定区域中的重复值。
1.在B2单元格中输入公式“=COUNTIF(A$1:A1,A2)=0”，然后双击B2单元格右下角的填充柄，公式将自动填充到B3：B21。这时可以看到排在后面的重复值在B列中都显示为“FALSE”。
方法三：利用数据透视表
1.选择A1：A21区域中的任意单元格，单击菜单“数据→数据透视表和数据透视图”，然后直接单击“下一步”按钮，在3步骤之2中可以看到“选定区域”已自动设置为“Sheet1!$A$1:$A$21”，再次单击“下一步按钮”，在3步骤之3中，选择“现有工作表”，区域选择C2单元格，然后单击“完成”按钮。
2.在“数据透视表字段列表”中，选择“神雕人物名单”，用鼠标左键将其拖至行字段区域，或直接单击“添加到”按钮。
3.可以看到Excel已自动将重复值去掉，并拼音顺序将名单排好了。
方法四：用Excel 2007的条件格式
1.选择区域A2:A21，然后单击功能区“开始→条件格式→突出显示单元格规则→重复值”，在“重复值”对话框中单击“确定”。
3.选择一个重复的姓名，再次单击鼠标右键，选择“排序→将所选单元格颜色放在最前面”，Excel将把重复的姓名自动排在最上面以便查看。
方法五：用Excel 2007中的“删除重复项”功能
选择A2:A21区域，单击功能区“数据→删除重复项”，在“删除重复项”对话框中单击“确定”。
Excel 2007自动将重复值删除，并给出提示。
方法六：用VBA
这两段VBA代码分别运用了Scripting.Dictionary和Collection对象，并利用了其元素具有唯一性的特点。
1.用Scripting.Dictionary对象：
Sub Uniquedata()
Dim Cel As Range, Res
'创建对象
Set d = CreateObject("Scripting.Dictionary")
'遍历数据区域的单元格
For Each Cel In Range("A2:A21")
'判断单元格内容是否为空
If Cel <> "" Then
'如果字典对象中不包含同样的对象就添加该对象
If Not d.exists(Cel.Value) Then d.Add Cel.Value, Cel.Value
End If
Next
Res = d.Items
'将对象中的元素写入工作表
For i = 0 To d.Count - 1
Cells(i + 2, 3) = Res(i)
Next i
End Sub
2.用Collection对象：
Sub Uniquedata1()
Dim myList As New Collection, Cel As Range, itm, i As Integer
On Error Resume Next
'遍历数据区域的单元格
For Each Cel In Range("A2:A21")
'判断单元格内容是否为空
If Cel <> "" Then myList.Add Cel.Value, CStr(Cel.Value)
Next
On Error GoTo 0
i = 1
'将非重复值写入工作表
For Each itm In myList
Cells(i + 1, 3) = itm
i = i + 1
Next
End Sub
单击右侧文件名下载示例源文件：用VBA提取取不重复值.xls
联系客服
