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 If

Next datax

End Function

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

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

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