Excel把重复出现的数据删除,只要唯一的数据

Excel表格里竖列数据有重复的,把重复出现的(多次出现的)数据删除,只要唯一的数据,
请问用Excel怎么实现啊,谢谢啊大虾:)

就是
1.aaa
2.bbb
3.aba
4.aaa
第1行和第4行有重复,如何把类似第4行重复的数据批量删除啊?

1、打开有重复数据的EXCEL
2、Alt+F11 打开宏编辑器
3、左边双击:ThisWorkBook
4、贴入以下代码并运行即可:
Sub 删除重复数据()
'删除col列的重复数据
'本例是删除标题为sheet1的EXCEL表中A列(从A2单元格开始)的重复数据
Application.ScreenUpdating = False
'可根据实际情况修改下面三行的结尾值
Dim sheetsCaption As String: sheetsCaption = "Sheet1"
Dim Col As String: Col = "A"
Dim StartRow As Integer: StartRow = 2
'以下不需要修改
Dim EndRow As Integer: EndRow = Sheets(sheetsCaption).Range(Col & "65536").End(xlUp).Row
Dim Count_1 As Integer: Count_1 = 0
Dim count_2 As Integer: count_2 = 0
Dim i As Integer: i = StartRow
With Sheets(sheetsCaption)
Do
Count_1 = Count_1 + 1
For j = StartRow To i - 1
If .Range(Col & i) = .Range(Col & j) Then
Count_1 = Count_1 - 1
.Range(Col & i).EntireRow.Delete
EndRow = Sheets(sheetsCaption).Range(Col & "65536").End(xlUp).Row
i = i - 1
count_2 = count_2 + 1
Exit For
End If
Next
i = i + 1
Loop While i < EndRow + 1
End With
MsgBox "共有" & Count_1 & "条不重复的数据"
MsgBox "删除" & count_2 & "条重复的数据"
Application.ScreenUpdating = True
End Sub
5、按F5键运行即可
温馨提示:答案为网友推荐,仅供参考
第1个回答  2009-04-24
1 点中你要筛选的那列,
但必须包含标题行。然后单击"数据"·"筛选"·"高级筛选"。
2

"方法"选项区,
选中"在原有区域显示筛选结果"单选框
选中"将筛选结果复制到其它区域"单选框,筛选结果将复制到指定区域(生成一个新表格)。
"选择不重复的记录"复选框,选中,则筛选结果中不包含重复的记录。
3
单击"高级筛选"对话框的"确定"按钮,筛选结果即可显示。
4 你看到的就是不重复的数据了
Ctrl+a 全选
新建一个表单
Ctrl+v 复制
就可以了~(*^__^*) 嘻嘻……
第2个回答  2009-04-24
先排序,旁边插入两列,一列使用 =if(a2=a3,"x","") 拖曳到最后,,然后复制这列,选择性黏贴到另一列,再按另外列排序下,所有 “X”行删除,就好了本回答被提问者采纳
第3个回答  2009-04-25
选择要删除重复的区域,数据->删除重复项,这样就可以把重复的数据全部删除掉了
相似回答
大家正在搜