①利用查找功能,Ctrl+F,根据下图操作
在左下角就看到找到的单元格数目了。
②使用VBA,2010版方法:开发工具-visual basic(左侧第一个)此步骤可以在工作表标签上右键,查看代码 来打开,在打开的窗口中,选中插入-模块-双击插入的模块,将下边代码复制到窗口中。使用方法是,在单元格中输入公式=countcolziti(参数1,参数2),参数1为统计个数的单元格范围,参数2为统计字体颜色的任意一个单元格,如=countcolziti(a1:c5,a1)。
Function Countcolziti(countrange As Range, col As Range) As Integer
Dim icell As Range
Application.Volatile
For Each icell In countrange
If icell.Font.ColorIndex = col.Font.ColorIndex Then
Countcolziti = Countcolziti + 1
End If
Next icell
End Function
③利用宏表函数get.cell获取单元格字体颜色代码,方法:公式-定义名称(见下图)
注意公式中的A1不要写成$A$1,ZTS是我自己定义的名称,你也随便编,汉字也行,然后在其他单元格输入=ZTS,回车,拖动公式,得到统计范围内各个字体的颜色代码,上图中有两种(红色和金色),然后在另外一个单元格用公式,假设统计红色=countif(e1:g7,3)
假定有颜色数据在a列,全选a列——菜单——插入——名称——定义——“当前工作薄中的名称”一行中填入一个名称,比如XX,
引用位置下面输入 =get.cell(24,$a1)
在空白列假定C1中输入=XX,公式下拉。这时单元格中出现不同的数字,红色的是3,无色的是0,蓝色是5…
统计单元格个数:=countif(c:c,5)
以上操作适用于EXCEL2007及以上版本。对于EXCEL2003及以下版本需要通过VBA编程实现了。