条件格式不允许我运行代码

Question

我正在尝试sumbycolor公式，但是由于在工作表内部应用了条件格式，因此无法正常工作。

我发现此行已添加到代码

 wRes.Cells(ColIndex, cS).FormatConditions.Delete

但是我不知道如何在我的代码中进行调整。有人请帮忙。谢谢

代码：

Function SumByColor(CellColor As Range, rRange As Range)
    Dim cSum As Double
    Dim ColIndex As Integer
    ColIndex = CellColor.Interior.ColorIndex
    For Each cl In rRange
        If cl.Interior.ColorIndex = ColIndex Then
            cSum = WorksheetFunction.Sum(cl, cSum)
        End If
    Next cl
    SumByColor = cSum
End Function

---

表格：