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