如何利用VBA代码统计相同格式的excel单元格数量

Excel 中经常要做数量统计，比如 COUNT 统计数字单元格，COUNTA 统计非空单元格，COUNTIF 单条件统计等等。那么如果要统计区域中有多少个填充绿色的单元格，有多少个字体为红色的单元格，如何实现呢？

接下来介绍如何通过简单的VBA代码实现自编函数，统计相同填充色和字体颜色的单元格数量。以下代码以填充色和字体色为例（代码稍作修改，还能统计各种格式包括字体加粗/倾斜/字号/边框等的单元格数量）

第一步：单击【开发工具】→【查看代码】→【插入】→【模块】

第二步：输入以下代码（不区分大小写）

※代码含义提示

CountFormat 可自己命名，但不可与系统函数或关键字同名

X和Y分别表示此函数的第1、2个参数

Font.Color 指字体颜色，Interior.Color 指填充颜色

※用户操作

在Excel中输入函数 =CountFormat($A$2:$B$11,$D2)

结果：在A2:B11区域中有多少个单元格的填充色和字体色与D2单元格一样

第1个参数：要统计的区域，例如上图的 A2:B11 区域

第2个参数：指定格式的单元格，例如上图的 D2 单元格

※扩展

有兴趣的同学可以在 IF 代码处增加多个条件，例如字体是否加粗、倾斜、边框、字号等，然后统计出满足这些条件的单元格数量。