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