2.条件格式重复值标示颜色

选择区域，单击条件格式→突出显示单元格规则→重复值。

这样有重复的就有显示背景色。

3.终极武器VBA

先看VBA效果，复制粘贴依然没问题。有重复会自动提醒，并清空内容。

附源代码：

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rngA As Range

For Each rngA In Target

A = Application.WorksheetFunction.CountIf(Sheets("sheet1").Range("A1:A100"), rngA)

If A > 1 Then

MsgBox "出现重复数据"

rngA = ""

End If

Next

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rngA As Range

For Each rngA In Target

A = Application.WorksheetFunction.CountIf(Sheets("sheet1").Range("A1:A100"), rngA)

If A > 1 Then

MsgBox "出现重复数据"

rngA = ""

End If

Next

End Sub

搞定收工，没有什么是做不到，Excel是死的，人是活的。

后台回复关键词思考，领取源文件。

每个时代，都会悄悄犒赏懂得思考的人。

看到一则新闻，赚钱不给老婆花算家暴，对于此事你如何看？你觉得什么样才算是个好男人？

作者：卢子，清华畅销书作者，《Excel效率手册 早做完，不加班》系列丛书创始人，个人公众号：Excel不加班（ID：Excelbujiaban）返回搜狐，查看更多