Excel统计相同填充色单元格个数

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

2、点击菜单“插入”->“模块”，复制以下代码到空白处：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 IfNext dataxEnd Function点击保存按钮。注意如果使用了Excel2007及以上版本，点击“另存为”菜单，选择*.xlsm格式，否则无法启用这个自定义函数。

3、关闭VBA窗口，现在可以使用这个函数了。第一个参数表示统计区间，第二个为有要统计的颜色的单元格。如果工作簿被复制为新的文件，打开后默认会禁止宏，此时要启用宏。