Excel找出重复行并只保留一个

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

Code
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

  

转载于:https://www.cnblogs.com/jcjks/archive/2009/08/30/1556653.html