无法调用FormatConditions.Add与types

我正在运行一个相当简单的FormatConditions以编程方式添加…

someVar的值为168.该代码在.FormatCondtions.Add行上失败

 Set Sheet = Workbooks(1).Worksheets(1) With Workbooks(1).Worksheets(1).Range("C2:C" & someVar) .FormatConditions.Delete .FormatConditions.Add Type:=xlCellValue, Operator:=xlDuplicate .FormatConditions(1).Interior.Color = RGB(255, 40, 80) End With 

我也尝试使用select，错误保持不变

 Workbooks(1).Worksheets(1).Range("C2:C" & someVar).Select With Selection 'See above End With 

Answer 1

试试这个：

 Set Sheet = Workbooks(1).Worksheets(1) With Sheet.Range("C2:C" & someVar) .FormatConditions.Delete .FormatConditions.AddUniqueValues .FormatConditions(1).DupeUnique = xlDuplicate .FormatConditions(1).Interior.Color = RGB(255, 40, 80) End With