作者:竺兰
编辑:竺兰
本文适用于所有版本的 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 加 1
End If
Next
Countc = 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 插件和配套练习文件!
以上内容包含广告
特别声明:以上内容(如有图片或视频亦包括在内)为自媒体平台“网易号”用户上传并发布,本平台仅提供信息存储服务。
Notice: The content above (including the pictures and videos if any) is uploaded and posted by a user of NetEase Hao, which is a social media platform and only provides information storage services.