文章大纲

1- 问题描述

2- 原因分析

1- 非数值类数据

2- 没有CountByColor的函数

3- 解决方法

1- 手写一个CountByColor函数

1- 打开VBE编辑器

2- 粘贴代码

2- 使用CountByColor统计

4-总结

5- 聊5毛钱

= = 推荐文章 = =

今日学习目标

快速解决按照颜色计数的问题

在讲Excel的时候，我经常强调表格设计的重要性。

表格中的信息，一定要尽量保存到单元格中，用具体的数值、文本来记录信息。

一切麻烦的表格，都是不懂表格设计，自己给自己挖的坑。

比如下面这个表格：

黄色单元格，代表信息有误

我们的项目经理，对项目的每个环节，都做了详细的标记；「黄色」代表信息记录是有误的。

现在他的困扰是：

如何根据标记颜色，快速统计出每行错误的数量？

现在是手动数的，这个表一做就是一下午。

你说这不是造吗？如果…不就…

算了，事情都发生了，我们还是想想怎么帮他解决掉吧！

1- 问题描述

问题是非常简单的，就是按照颜色统计数量。

但是本质上，这个是一个记录不规范的问题，黄色实际代表的是一个字段名为「项目是否错误」的数据。。。bala bala。。。

2- 原因分析

我还是忍不住，要说一下：这个需求很简单，为什么不好统计呢？

原因有两个：

1- 非数值类数据

黄色本质上就是一个字段名为「项目是否错误」的数据，如果表格中有这样一列数据，那么直接用CountIf就可以轻松搞定了。

2- 没有CountByColor的函数

最主要的原因，其实就是因为Excel中没有根据颜色求和的函数。

既然没有，那我们就创造一个，名字就叫CountByColor函数，一个公式搞定这个难题。

接下来我们看看，这个CountByColor具体是怎么弄出来的。

3- 解决方法

在Excel中创造函数，就必须得用VBA了。

不懂没关系，下面是操作步骤，跟着做就好了。

1- 手写一个CountByColor函数

1- 打开VBE编辑器

在工作表上，点击右键，选择「查看代码」

2- 粘贴代码

在左边的项目管理器中，右键新建一个「模块」。

然后粘贴下面的代码。

Function CountByColor(ByVal countRange As Range, ByVal colorCell As Range)
Dim color As Long, result As Integer
color = colorCell.Interior.color
result = 0
For Each cel In countRange
If cel.Interior.color = color Then
result = result + 1
End If
Next
countByColor = result
End Function

这样，自定义的CountByColor函数就设计好了。函数的结构大概是这样的

CountByColor(countRange , colorCell)