基于单元格颜色的自动筛选：'运行时错误'1004'：'

我想根据我使用条件格式时使用的单元格颜色来过滤列。 但是，我似乎无法得到它的工作。 我目前有以下几点：

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