使用specialcells清除条件格式

Question

我的代码没有出现任何错误。事实上，一切都没有发生。我正在尝试浏览工作簿，并使用匹配的条件格式清除所有单元格。这是我的基本代码。尝试了Ctrl + H方法，但没有找到任何匹配的单元格。

Sub clear_cells()

Dim range1, range2 As Range
On Error Resume Next

Set range1 = Range("a1:l500")

With range1
Set range2 = range1.SpecialCells(xlCellTypeSameFormatConditions)
range2.ClearContents

End With

End Sub

Cell A1具有我想要匹配的格式。 range1中的其他单元格具有Type，Value，format等的混合。