方法如下：

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