作者：竺兰
编辑：竺兰
本文适用于所有版本的 Excel 和 WPS
大家好，我是懂点 Excel 的小兰~
刚刚结束的#TFBOYS 十年之约演唱会#大家都听说过吗？
前几天上网冲浪的时候，我总能在热搜上看到相关消息，不过作为一名 Excel 使用者，最令我感兴趣的还是各家的灯牌。
虽然就 3 种颜色，但一眼望去，眼花缭乱，真的很难分清每种颜色数量有多少。
在 Excel 中，我们有时也会遇到这种情况——用不同的颜色标记单元格，最后需要按颜色统计个数。
如下图：
Excel 中没有统计颜色的函数，不过可以用 VBA 自定义一个，不用觉得很难，代码我已经准备好了，你只要会套用就行！
学会后，再多的颜色也不怕！
如果你想系统学习 Excel，但不知道从何下手，可以点击下方的小程序参加我们的《3 天 Excel 集训营》
那么，接下来就来看看创建步骤吧~ （记得先将 Excel 文件保存为.xlsm 格式。）
❶ 按【Alt+F11】快捷键打开 VBA 编辑器。
❷ 在工程窗口中选中「本文档」-【右键】-【插入】-【模块】。
❸ 将下方的代码复制到刚才新建的模块中。
Function Countc(i As Range, j As Range)'新建一个自定义函数，函数名为 Countc（参数 1 是一个区域 i，参数 2 也是一个区域 j）Dim n As Integer '定义一个变量 n，变量 n 为数值Dim k As Range '定义一个变量 k，变量 k 为区域For Each k In i '遍历区域 i 的所有单元格If k.Interior.Color = j.Interior.Color Then'如果区域 i 的第 k 个单元格颜色与区域 j 相同n = n + 1'用于计数的 n 加 1End IfNextCountc = n '将 n 复制给 Countc，作为这个函数的输出结果End Function▲ 左右滑动查看
如下图：
按【Ctrl+S】快捷键保存，然后点击右上角的×关掉 VBA 编辑页面。
到这里，我们就创建好自定义函数Countc了，那么自定义函数要怎么使用呢？
很简单。
就和普通函数一样的使用方法。
Countc 基本语法：
=Countc(要统计颜色的单元格范围,要统计的颜色)
❶ 在 G3 单元格中使用函数：
公式如下：
=countc($D$2:$D$11,G2)❷ 向右填充。
VBA 自定义函数创建之后，以后要按颜色统计单元格的个数时，只要像平常使用函数一样使用即可。
不过需要注意的是，自定义函数只在当前工作簿中使用，其他未创建自定义函数的工作簿，并不能使用。 如果是 WPS，还需要安装 VBA 插件才能使用 ，插件获取方法见文末哦~
多学多练才能更快掌握 Excel，如果你想学习更多 Excel 技巧，想拥有更多练手机会，还想遇到问题时有老师指点……
欢迎报名我们秋叶家的《3 天 Excel 集训营》，这里有老师直播+录播教学，有助教群内 1 对 1 答疑，还有同学一起交流进步！
3 天时间，每天 30 分钟左右，你也有可能成为 Excel 高手！
Excel 3 天集训营
提升效率，助你准时下班
数据可视化，让领导刮目相看
秋叶 Excel 读者专享
官网价99
点击下方小程序即可报名
现在报名免费获取
307 个函数清单
35 个常用函数说明
常用快捷键大全
20 套 Excel 实战图表案例
发送 【TF】
立马获取 VBA 插件和配套练习文件！
以上内容包含广告
热门跟贴