vba自定义函数，快速统计excel单元格填充色个数，好用到没朋友

Hello,大家好，今天跟大家分享下在excel中如何统计单元格的某一种填充色，这个问题，最近几天好多人问，

对单元格添加各种各样的填充色，其实不是一种很好的习惯，我们在制作表格的时候，将同类别的项目放在一起，就能有效的避免这样的后期统计的问题

今天跟大家分享两种方法，第一种是利用自定义函数，快速统计单元格颜色，第二种是使用查找来解决这样的问题，他的优点是简单容易操作，

一、自定义函数统计单元格填充色个数

首选我们来看下效果

我们来统计绿色的单元格的填充个数

在这里我们自定义了CountColor函数，他一共有两个参数

第一参数：要统计的单元格填充色

第二参数：要统计的数据区域

我们想要创建这个函数也非常的简单，只需要点击开发工具，然后点击visual basic，打开vba的编辑器，找到我们工作表所在工程文件直接将代码粘贴进去即可，接着我们直接关闭编辑然后在单元格中输入=CountColor即可使用该函数

代码如下

Function CountColor(ary1 As Range, ary2 As Range) Application.Volatile For Each i In ary2 If i.Interior.ColorIndex = ary1.Interior.ColorIndex Then CountColor = CountColor + 1 End If Next End Function

二、查找法统计单元格填充色

这个方法使用起来更加的简单，不过我们需要手动输入统计的结果，我们直接按Ctrl+F调出查找窗口，然后点击选项，点击旁边的格式，选择从单元格选择格式，鼠标就会变成一个小吸管，直接吸取我们想要统计的颜色即可，然后点击全部查找

我们在查找框的左下方可以看到，8个单元格被查找到，所以这里绿色的填充色单元格就是8个，如下图

在这里还是建议大家不要使用填充色区分单元格，在做基础表的时候就将数据区分开，这样的话，数据统计起来更加的简单快速

我是excel 从零到一，关注我持续分享更多excel技巧