Question

Excel点击重复数据标红

一个Excel表格里面有6000个从1-30的正整数，我现在的需求就是，比如我鼠标选中其中的一个1，表中所有的1全部变成红色，不选中的话变回原来的颜色
跪求大佬！！！在线等

Answer 1

选中BCDE列 格式-条件格式 第一个选项单元格格式改成公式 后面输入 =$A1=B1 下面的未设定格式字体设为红，确定

Answer 2

选中BCDE列 格式-条件格式 第一个选项单元格格式改成公式 后面输入 =$A1=B1 下面的未设定格式字体设为红，确定

Answer 3

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
Dim firstaddress As String
Sheet1.UsedRange.Interior.ColorIndex = 0
If Target.Count > 1 Or Target.Value = "" Then Exit Sub
Set rng = Sheet1.UsedRange.Find(Target.Value, lookat:=xlWhole)
If rng Is Nothing Then
    Target.Interior.Color = vbRed
Else
    firstaddress = rng.Address
    Do
        rng.Interior.Color = vbRed
        Set rng = Sheet1.UsedRange.FindNext(rng)
    Loop While Not rng Is Nothing And rng.Address <> firstaddress
End If
End Sub
'以上代码可以实现选择不同的单元格时，相同值的单元格以红色为底色显示，如果没有相同值，则仅选中单元格以红色为底色显示。

Answer 4

vba结合条件格式会让你容易实现：
用单元事件将选定的单元值写入一个隐蔽单元（如Z1），再用 =A1=$Z$1 作条件格式

Answer 5

这个问题，得用VBA代码写个宏来解决，但是6000个数据，需要反应时间。
要写代码，还需要数据范围。