使用Excel，有时会有统计相同填充色单元格个数的需求，而countif函数只针对于单元格内容进行统计。新建使用get.cell（早期宏表函数）的名称会有更新不及时的问题（即使在名称中使用now），而且需用到辅助行/列，最简单的方法仍然是自定义函数。工具/原料moreExcel方法/步骤1/3分步阅读

选择“开发工具”选项卡（默认是不显示的，可以在Excel选项--“自定义功能区”中勾选），点击“Visual Basic”，或者直接按Alt+F11。

2/3

点击菜单“插入”-“模块”，复制以下代码到空白处：

Function CountCcolor(range_data As range, criteria As range) As Long Dim datax As range Dim xcolor As Longxcolor = criteria.Interior.ColorIndexFor Each datax In range_data If datax.Interior.ColorIndex = xcolor Then CountCcolor = CountCcolor + 1 End If

Next datax

End Function

点击保存按钮。注意如果使用了Excel2007及以上版本，点击“另存为”菜单，选择*.xlsm格式，否则无法启用这个自定义函数。

3/3

关闭VBA窗口，现在可以使用这个函数了。第一个参数表示统计区间，第二个为有要统计的颜色的单元格。

如果工作簿被复制为新的文件，打开后默认会禁止宏，此时要启用宏。

注意事项

Excel帮助文档是给出了解决方法的链接的，只不过作者使用了加载宏（或者说是插件）的形式（需要复制.xlam文件到指定目录，并启用这个宏），有本机全局的效果，如果你希望只在当前工作簿使用（工作簿文件复制到另一台电脑也可用），可以参考本文（其实道理相通）。

本文主要参考：https://support.microsoft.com/en-us/help/2815384/count-the-number-of-cells-with-specific-cell-color-by-using-vba