今天一个朋友叫帮她改几个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

  

版权声明：本文为jcjks原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://www.cnblogs.com/jcjks/archive/2009/08/30/1556653.html