条件付書式設定でつけた色を残したまま条件式を解除する方法は？

こんばんは。Wendy02です。 このマクロは、条件付書式が、「数式が 」で設定されたものに限ります。そうでない場合、オプションを作らなくてはなりません。色は、フォントとパターンのみに対応しています。 'なるべく、標準モジュールに設定してください。 Sub FindFCondition2Format() '条件付書式の色設定を、一般書式の色に換える Dim r As Range Dim c As Range Dim i As Integer Dim fc As Object On Error GoTo ErrHandler Set r = ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllFormatConditions) Application.ScreenUpdating = False For Each c In r 'セルを動かさないと