​​Excel技巧,Excel统计相同颜色单元格的数量并进行求和计算,VBA代码!

​​Excel技巧,Excel统计相同颜色单元格的数量并进行求和计算,VBA代码!

 

知识改变命运,科技成就未来。

在使用Excel制作工作表时,为了凸显某些数据的重要性,一般情况下会更改数据的字体颜色,在海量的数据中,单纯的改变数据字体颜色不是很显眼,最好的办法就是进行单元格颜色填充,单元格填充后的效果非常醒目,对数据分析也有一定的帮助。

006fRELkly4h1pmuj5prxj30hs0cjaaz

一般进行单元格填充,相当于间接的对数据进行了分类。例如,在一组混合数据中,大于零的整数用红色填充,小于零的整数用绿色填充,等于零用蓝色填充,其他未填充的都是小数。现在我们要统计大于零的整数有多少个?它们的之和是多少?只需统计红色单元格的数量就可以完成,求它们的和也只用计算红色单元格中的数据之和就可以啦!

这只是一个简单的例子,具体情况具体分析,在实际操作中还会遇到各种各样的情况。接下来就一起学习一下这个技巧吧!

006fRELkly4h1pmui3sgoj30gy0cm3zu

步骤一:首先需要启用Visual Basic编辑器,右键单击示例工作表,然后左键单击【查看代码】选项。在Visual Basic编辑器中的工程资源管理器窗口中,右键单击后将鼠标指针移动至插入选项,然后插入一个模块,并将以下代码复制粘贴到代码窗口中,最后关闭Visual Basic编辑器回到Excel工作表操作界面。

006fRELkly4h1pmuk3yp6g30t40iq1kx

代码区域:

Function CountColor(col As Range, countrange As Range) As Integer

Dim icell As Range

Application.Volatile

For Each icell In countrange

If icell.Interior.ColorIndex = col.Interior.ColorIndex Then

CountColor = CountColor + 1

End If

Next icell

End Function

 

Function SumColor(col As Range, sumrange As Range) As Integer

Dim icell As Range

Application.Volatile

For Each icell In sumrange

If icell.Interior.ColorIndex = col.Interior.ColorIndex Then

SumColor = Application.Sum(icell) + SumColor

End If

Next icell

End Function

006fRELkly4h1pmujm794j30hs0bgt9h

步骤二:求相同颜色的单元格数量,需要用到CountColor函数。函数CountColor的使用方法:=CountColor(指定颜色的单元格,统计单元格区域)

只需在D2单元格中键入函数【=CountColor(C2,$A$1:$A$15)】,按下键盘上Enter键之后进行公式填充。此处的单元格区域需要使用绝对引用,否则进行公式填充时会出现计算错误。当然也可以选中整列,但是这样的话计算时间比较长。绝对引用只需将光标放置在单元格区域【:】的左边和右边,然后按下键盘上的F4就可以了,也可以手动输入。

006fRELkly4h1pmujoy82g30t40iq1dz

步骤三:求相同颜色单元格数值之和,需要用到SumColor函数。函数SumColor的使用方法:=SumColor(指定颜色的单元格,统计单元格区域)

只需在E2单元格中键入函数【=SumColor(C2,$A$1:$A$15)】,按下键盘上Enter键之后进行公式填充。此处的单元格区域同样需要使用绝对引用。

006fRELkly4h1pmuj9sm1g30t40iqaon

至此,Microsoft Excel实现按单元格颜色求和与计数的操作流程已经介绍完毕。通过这个Excel实例能够让你快速掌握单元格颜色数量的统计方法,虽然很少有人将单元格装扮的五颜六色,但是不见的没有人这么做,学会这个技能,即便遇到了也不用求人,自己动手丰衣足食。

 

 

学习资料见知识星球。

以上就是今天要分享的技巧,你学会了吗?若有什么问题,欢迎在下方留言。

快来试试吧,小琥 my21ke007。获取 1000个免费 Excel模板福利​​​​!

更多技巧, www.excelbook.cn

欢迎 加入 零售创新 知识星球,知识星球主要以数据分析、报告分享、数据工具讨论为主;

电商数据分析360°实战攻略!

你将获得:

1、价值上万元的专业的PPT报告模板。

2、专业案例分析和解读笔记。

3、实用的Excel、Word、PPT技巧。

4、VIP讨论群,共享资源。

5、优惠的会员商品。

6、一次付费只需129元,即可下载本站文章涉及的文件和软件。

文章版权声明 1、本网站名称:Excelbook
2、本站永久网址:http://www.excelbook.cn
3、本网站的文章部分内容可能来源于网络,仅供大家学习与参考,如有侵权,请联系站长王小琥进行删除处理。
4、本站一切资源不代表本站立场,并不代表本站赞同其观点和对其真实性负责。
5、本站一律禁止以任何方式发布或转载任何违法的相关信息,访客发现请向站长举报。
6、本站资源大多存储在云盘,如发现链接失效,请联系我们我们会第一时间更新。

THE END
分享
二维码
< <上一篇
下一篇>>