EXCEL工作表中有很多重复的数字,如何把这些重复的删除或隐藏,只剩下唯一的一个?

来源:百度知道 编辑:UC知道 时间:2024/06/18 05:11:12
在一个EXCEL工作表中有很多重复的数字、文字、符号等。(数字、文字、符号等不在同一个单元格)如何把这些重复的删除或隐藏,只剩下唯一的一个?

A列 B列
104999200100 变压器线圈BK-150
104999200100 变压器线圈BK-150
104999200100 变压器线圈BK-150
104999200100 变压器线圈BK-150
104999200110 变压器线圈BK-1500
104999200130 变压器线圈BK-200
104999200130 变压器线圈BK-200
104999200130 变压器线圈BK-200
104999200130 变压器线圈BK-200
104999200130 变压器线圈BK-200
104999200130 变压器线圈BK-200

如以上,能不能最终的结果是一一对应的:
A列 B列
104999200100 变压器线圈BK-150
104999200110 变压器线圈BK-1500
104999200130 变压器线圈BK-200
A 列是104999200100象这些一连串的数字,B列是变压器线圈BK-150

我想只剩下一个,不是都不想要。数据很大,一个工作表也放不下,有没简单点的,快速点的?

1、选中所有数据,先按A升序排序
2、C2输入公式 =if(and(a2=a1,b1=b2),0,1)
3、向下复制C列公式
4、将C列选中、复制、选择性粘贴、数值
5、再按C列排序
6、删除C列中为0的,剩下的就是唯一的数据了

事先先做备份:)

筛选替换只适合用于少量的数据,公式和代码才可行,发个循环宏的代码给你,很快就能搞定,不过我问一句,哪来的这么多重复数据?一个表6万多行啊。
按ALT+F11,插入模块,粘贴运行代码,运行前请备份,防止意外。
Sub data_del()
x = 2 '从第二行开始
y = x + 1
Do While Cells(x, 1).Value <> ""
Do While Cells(y, 1).Value <> ""
If (Cells(x, 1).Value = Cells(y, 1).Value) And (Cells(x, 2).Value = Cells(y, 2).Value) Then
Cells(y, 1).EntireRow.Delete
Else
y = y + 1
End If
Loop
x = x + 1
y = x + 1
Loop
End Sub
代码已调试,没问题,但是请备份,这是好的习惯。

数据->筛选->高级筛选
在“选择不重复记录”前打勾
确定

1 数据排序,手工删除一样的数据行
2 做个宏进行循环比较,把相同的删除

编辑里的查找替换功能可以帮你解决!把不想要的替换成空白即可!

先选中A列,然后选中"数据"按钮中的"数据筛选"项,这时A列的最上面一行出现一个下拉箭头,点之,所有项会出现,选中其中一个,所有相同的就会一起出现,只留一个,删除全部其它行即可.
更简单的方法一时还想不到, 这个应该还是比