❷ 把代码复制到右边的代码窗口中，就可以了。
❸ 在工作表中，输入公式：
=颜色求和(C2:C9,E1)
结果就出来了。
以下是代码，供大家复制使用！
Function 颜色求和(rng1 As Range, rng2 As Range)
Dim r As Range, s As Double
'请选择你要求和的单元格区域！
Set rng1 = Intersect(ActiveSheet.UsedRange, rng1)
For Each r In rng1
'如果目标单元格与第二参数单元格的填充色相同，就进行累加。
If r.Interior.Color = rng2.Interior.Color Then
s = s r.Value
End If
Next
颜色求和 = s
End Function
我们这里用的是 VBA 中的自定义函数，也可以编写个 Sub 子过程。
然后把这个子过程附到一个按钮上面也可以的。
这种方法，如果大家有精力、有兴趣的话，可以学习点录制宏，自己再进行一些简单的修改，就可以完成一些自动化的工作了，省时省力。
以上就是按颜色求和的 4 种主要方法。
05总结
除了以上 4 种主要的方法之外，实际工作中还可能有以下几种情况，比如：
❶ 是否是隔行（或者隔列）加了颜色，然后对隔行（隔列）进行求和？
❷ 是否是对于高于或者低于某一些数值的数据加了颜色，然后用 Sumif 或者 Sumifs 等函数设置下单条件或者多条件求和？
❸ 是否是针对某个部门或者某些人、某个时间段等加了颜色，然后用相应的函数求和？
……
工作中，可以根据实际情况，找出其中的规律，加以分析判断，并做出选择。
好了，大家如果有其他好的方法，也可以分享出来，一起讨论，一起学习，一起进步！
如果喜欢我的文章，请点个赞呗！
私信回复关键词【2020】~
获取100 套高颜值图表模板！
