Sub 条件付き書式_重複に色を付ける()

    Range("A2:A6").FormatConditions.AddUniqueValues
    Range("A2:A6").FormatConditions(1).DupeUnique = xlDuplicate
    Range("A2:A6").FormatConditions(1).Interior.Color = RGB(255, 200, 200) '淡赤色

End Sub