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