如果在一块数据中，分别标有不同的颜色，就如同下面的一样，那我们如何按颜色来进行求和或者计数呢？
有一个朋友，就碰到过这样的问题，据他说，把头都数晕了！是不是真的有这么难呢？其实我们只需要用到二个公式就行了。
一、SumColor（颜色，区域）
按颜色求和。很简单，第一个参数是颜色，就是说你要按照什么颜色来求和，第二个参数就是求和的区域。
二、CountColor（颜色，区域）
按颜色计数。和上面的一样，第一个参数是颜色，就是说你要按照什么颜色来计数，第二个参数就是计数的区域。
如下图：
但是，你会发现你的表格里没有这个公式！这是为什么呢？因为我提前利用VBA自定义了这两个公式。
说到VBA，很多人可能觉得太难了，当然，要自己写代码的确是一件头痛的事，不过不用当人，已经有人帮我们把代码写好了，我们只需要直接套用就行。
代码：
1.根据颜色求和代码
Function SumColor(i As Range, ary1 As Range)
Dim icell As Range
Application.Volatile
For Each icell In ary1
If icell.Interior.ColorIndex = i.Interior.ColorIndex Then
SumColor = Application.Sum(icell) + SumColor
End If
Next icell
End Function
2.根据颜色计数代码
Function CountColor(x As Range, ary2 As Range)
Application.Volatile
For Each i In ary2
If i.Interior.ColorIndex = x.Interior.ColorIndex Then
CountColor = CountColor + 1
End If
Next
End Function
那如何定义呢？只需要打开开发工具，选中里面的VBA，然后点击插入模块，再将上面的代码输入进去，然后直接关掉，就行了！
然后你再去输入这个公式，就能用啦，是不是十分的简单好用呢？
