宏表函数。
全选a列——菜单——插入——名称——定义——“当前工作薄中的名称”一行中填入一个名称，比如XX，
引用位置下面输入 =get.cell(24,$a1)
在空白列假定C1中输入=XX，公式下拉。这时单元格中出现不同的数字，红色的是3，无色的是0，蓝色是5…
求红色字体单元格个数：=countif(c:c,3)
黑色字体单元格个数的公式只需要改一下最后那个数字3,黑色是几就换成几。
全选a列——菜单——插入——名称——定义——“当前工作薄中的名称”一行中填入一个名称，比如XX，
引用位置下面输入 =get.cell(24,$a1)
在空白列假定C1中输入=XX，公式下拉。这时单元格中出现不同的数字，红色的是3，无色的是0，蓝色是5…
求红色字体单元格个数：=countif(c:c,3)
黑色字体单元格个数的公式只需要改一下最后那个数字3,黑色是几就换成几。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2010-01-25
选择区域--筛选--按颜色筛选 最后 计数=COUNTA(A1:A6)
第2个回答 2010-01-25
用宏表函数作为辅助列，再用countif计算。
需要的话，发邮件到[email protected]
需要的话，发邮件到[email protected]
第3个回答 2010-01-26
应该只能通过VBA统计了吧，在2003及以前版本的我印象中肯定是没有取着色的函数，不知07的有没有。
补充一：可宏表函数不能自动更新呀，觉得这是个问题
补充一：可宏表函数不能自动更新呀，觉得这是个问题
第4个回答 2010-01-29
用宏吧：
Alt+F11进入VBA，单击菜单“插入——》模块”，在模块1代码窗口输入：
Function CountColor(col as range,countrange as range)as integer
Dim icell as range
Application.Volatile
For Each icell In countrange
If icell.Interior.ColorIndex = col.interior.ColorIndex Then
Countcolor = CountColor + 1
End if
Next icell
End Function
此时 表中出现自定义函数Countcolor()
将D1背景改为需要计数的单元格颜色(如：红色）
公式写成Countcolor（D$1,$A$1:$A$5)，结果就是2.
如果单元格内不是字符而是数字求和，则需要将上述宏内的Count改为Sum。
Alt+F11进入VBA，单击菜单“插入——》模块”，在模块1代码窗口输入：
Function CountColor(col as range,countrange as range)as integer
Dim icell as range
Application.Volatile
For Each icell In countrange
If icell.Interior.ColorIndex = col.interior.ColorIndex Then
Countcolor = CountColor + 1
End if
Next icell
End Function
此时 表中出现自定义函数Countcolor()
将D1背景改为需要计数的单元格颜色(如：红色）
公式写成Countcolor（D$1,$A$1:$A$5)，结果就是2.
如果单元格内不是字符而是数字求和，则需要将上述宏内的Count改为Sum。
相似回答