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

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

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

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

第二步:输入以下代码(不区分大小写)

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

※代码含义提示

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 代码处增加多个条件,例如字体是否加粗、倾斜、边框、字号等,然后统计出满足这些条件的单元格数量。

发表评论

您的电子邮箱地址不会被公开。 必填项已用*标注