怎么在excel表格上设置日期变红

1.怎么在EXCEL让整个一列都是同一个日期自动变红

excel中假设在A列需要找到相同数值的单元格，在B1输入以下公式

=IF(COUNTIF($A$1:A1,A1)>1，"重复"，"0")。

然后往下拖，只要是重复，后面就会显示“重复”两个字，显示0的就是不重复，一目了然。

选中显示重复的单元格，点击“填充颜色”按钮即可将整个一列都是同一个日期自动变红。

如果要删除重复的行，那么继续做完上面的以后，按下面的步骤：

1、选中B列复制，再依次点击编辑、选择性粘贴，选中数值，确定。

2、Ctrl+H替换窗口，把重复两个字替换为空（就是“替换为”那里什么也不输入），全部替换。

3、依旧选中B列，按F5，在跳出窗口的左下角点击定位条件，选择空值，确定。

4、依次点击编辑，删除，选择整行，确定。

用vba 删除重复的行。

Sub 删除重复行2()。

Dim rCell As Range, rRng As Range, dRng As Range

On Error Resume Next

Application.ScreenUpdating = False

Set rRng = Range("A1:A" & Range("A65536").End(xlUp).Row)

rRng.AdvancedFilter Action:=xlFilterInPlace, unique:=True

For Each rCell In rRng

If rCell.EntireRow.Hidden = True Then

If dRng Is Nothing Then

Set dRng = rCell.EntireRow

Else

Set dRng = Application.Union(dRng, rCell.EntireRow)

End If

End If

Next

If Not dRng Is Nothing Then dRng.Delete

ActiveSheet.ShowAllData

Application.ScreenUpdating = True

End Sub