使用重复检测在单独的列中输入1/0

时间:2014-07-22 22:59:11

标签: excel excel-vba vba

条件格式选项适用于识别重复项。如何使用检测到的重复项将值写入单独的列? 1表示重复,0表示不重复。我以为我可以使用基于单元格颜色的VBA功能。但是,Excel不会将检测到的重复单元格颜色存储在正常单元格颜色属性中。

注意:99不是浅红色编号,仅供参考。

Function LightRed(rng As Range) As Boolean
    If rng.Interior.ColorIndex = 99 Then
        LightRed = 0
    Else
        LightRed = 1
    End If
End Function

1 个答案:

答案 0 :(得分:0)

正如tigeravatar所说,你可以使用

=--(COUNTIF(A:A,A1)>1)

检测重复项,然后您可以在B列应用条件格式,如果单元格值= 1,则将背景颜色更改为红色

Duplicate