1. 打开Excel，按Alt+F11进VBA编辑器，在左侧随便点右键，选插入-模块，然后在右边粘贴下面的代码，之后关掉VBA窗口。
2. 接着输入公式：=SUMRED(你要求和的区域)
代码如下：
Function sumred(rng As Range) As Double
Dim rg As Range
Set rng = Intersect(*.usedrange, rng)
For Each rg In rng
If rg.*.color = RGB(255, 0, 0) And IsNumeric(*.value) Then sumred = sumred + *.value
Next
End Function
2. 接着输入公式：=SUMRED(你要求和的区域)
代码如下：
Function sumred(rng As Range) As Double
Dim rg As Range
Set rng = Intersect(*.usedrange, rng)
For Each rg In rng
If rg.*.color = RGB(255, 0, 0) And IsNumeric(*.value) Then sumred = sumred + *.value
Next
End Function