如果在一块数据中，分别标有不同的颜色，就如同下面的一样，那我们如何按颜色来进行求和或者计数呢？
有一个朋友，就碰到过这样的问题，据他说，把头都数晕了！是不是真的有这么难呢？其实我们只需要用到二个公式就行了。
一、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 icellEnd Function
2.根据颜色计数代码
Function CountColor(x As Range, ary2 As Range)Application.VolatileFor Each i In ary2If i.Interior.ColorIndex = x.Interior.ColorIndex ThenCountColor = CountColor + 1End IfNextEnd Function
那如何定义呢？只需要打开开发工具，选中里面的VBA，然后点击插入模块，再将上面的代码输入进去，然后直接关掉，就行了！
然后你再去输入这个公式，就能用啦，是不是十分的简单好用呢？
原文链接：https://isaurora.com/5958.html，转载请注明出处。
1、本站名称：极光资源
2、本站永久网址：https://isaurora.com，Ctrl+D即可收藏本站，期待再次光临。
3、本站部分文章内容可能来源于网络，仅供学习与参考，如有侵权请留言反馈，本站将进行删除处理。
4、本站所有资源不代表本站立场，不代表本站赞同其观点，不对其真实性负责。
5、本站禁止以任何方式发布或转载任何违法信息，如发现请留言举报。
6、本站资源大多存储在云盘，如发现链接失效请留言反馈，本站将第一时间更新。
1、本站名称：极光资源
2、本站永久网址：https://isaurora.com，Ctrl+D即可收藏本站，期待再次光临。
3、本站部分文章内容可能来源于网络，仅供学习与参考，如有侵权请留言反馈，本站将进行删除处理。
4、本站所有资源不代表本站立场，不代表本站赞同其观点，不对其真实性负责。
5、本站禁止以任何方式发布或转载任何违法信息，如发现请留言举报。
6、本站资源大多存储在云盘，如发现链接失效请留言反馈，本站将第一时间更新。
评论0