电脑教程
位置:首页>> 电脑教程>> office教程>> Excel 找出重复行并只保留一个的实现方法

Excel 找出重复行并只保留一个的实现方法

  发布时间:2022-01-30 02:34:16 

标签:Excel,重复行

今天一个朋友叫帮她改几个Excel,将表中按某一列查找出重复的,并且只保留一个,想了一下办法很快就搞定了。方法如下:
1、首先将表格按照需要查找的那一列排序。
2、录制一个新宏,这个宏不用任何操作,将用以下的代码来完成。如果愿意可以给个快捷键。
3、打开宏编辑器,将如下代码贴到宏的SUB里,然后执行即可,执行的时候记得要让比较的第一个单元格做为活动单元格:

复制代码代码如下:


Sub 你的宏名称()
x = ActiveCell.Row
Z = ActiveCell.Column
Do While Cells(x, Z).Value <> ""
y = x + 1
Do While Cells(y, Z).Value <> ""
If (Cells(x, Z).Value = Cells(y, Z).Value) Then
'Cells(x, z).Interior.ColorIndex = 3
'Cells(y, z).Interior.ColorIndex = 3
'上面这两行可以将重复的标为红色。
Rows(y).Delete
End If
y = y + 1
Loop
x = x + 1
Loop
End Sub

0
投稿

猜你喜欢

手机版 电脑教程 asp之家 www.aspxhome.com