基於單元格顏色的自動過濾：“運行時錯誤'1004'：”

Question

我想根據我在應用條件格式設置時使用的單元格顏色來過濾列。 但是，我似乎無法使其正常工作。 我目前有以下內容：

Private Sub Dups()
    ' Filter out the duplicate order numbers in each sheet
    Dim lsRow As Long

    lsRow = Cells(Rows.Count, 12).End(xlUp).Offset(rowOffset:=1).Row
    ActiveSheet.Range("A:A").Select
    ' Add the Duplicate Conditional formatting
    Selection.FormatConditions.AddUniqueValues
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    Selection.FormatConditions(1).DupeUnique = xlDuplicate

    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False

    ' Filter the sheet to only show conditional formatting
    ActiveSheet.Range.AutoFilter Field:=1, Criteria1:=RGB(255, 199, 206), Operator:=xlFilterCellColor


End Sub

當我進入代碼時，它在以下位置中斷：

ActiveSheet.Range("A:O").AutoFilter Field:=1, Criteria1:"=RGB(255, 199, 206)", Operator:=xlFilterCellColor

我收到錯誤消息：

運行時錯誤“ 1004”：應用程序定義或對象定義的錯誤

Answer 1

找出答案：

ActiveSheet.Range("A:O").AutoFilter Field:=1, Criteria1:=RGB(255, 199, 206), Operator:=xlFilterCellColor