オートフィルタで重複データを抽出

Sub Macro1()
    ' 重複データに色をつける条件付き書式
    Range("B:B").Select
    Range("B:B").FormatConditions.Delete

    Selection.FormatConditions.AddUniqueValues '条件付き書式の追加
    Selection.FormatConditions(1).DupeUnique = xlDuplicate '重複
    Selection.FormatConditions(1).Interior.Color = RGB(255, 199, 206) 'ピンク背景
    Range("A1").Select
End Sub

Sub Macro2()
    ' オートフィルタで色つきセルを抽出
    Range("A1").AutoFilter _
    Field:=2, Criteria1:=RGB(255, 199, 206), Operator:=xlFilterCellColor
End Sub

Sub Macro3()
    ' 条件付き書式を削除する
    Range("B:B").FormatConditions.Delete
End Sub

Sub Macro4()
    'フィルタの条件クリア
    If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
End Sub