如果你会点VBA就好办了!下面是主要代码段
Sub a()
Dim i As Integer
Dim a As Range
i=0
For Each a In Range("a1:h14")
If a.Interior.ColorIndex = 3 Then /*这句意思是说如果当前单元格的颜色为红色,则执行下面的语句*/
i = i + a.Value
End If
Next a
msgbox i
End Sub


难度好高

【VBA应用】(Excel 2003) 自定函数：按颜色加总，及计数_excel吧_百度贴吧
https://tieba.baidu.com/p/1446883980