请问EXCEL专家，在下图中如何对一列数据当中红色数值的个数进行自动统计，相邻的列能否一起统计，谢谢！

Question

各们我是需要统计每列红色数值的个数，不是红色数值的求合，本人菜鸟有没有简单易行的办法啊！感谢啊。。。

Answer 1

求单元格红色数值的和要用到宏表函数。

下面说一个变通的做法

光标位于数据区域的任一单元格 CTRL+F 点击 选项

点击 查找内容 最右侧的 格式 选择格式或从单元格选择格式 

字体设为红色或选择数据区域任一红色数值所在的单元格 

点击 查找全部

按CTRL+A 选择全部符合要求的区域 右键点击状态条上计算区域 选择 求和 

这时显示的就是红色字体区域数值和

最好将左上角带绿色小三角的文本数值，转换为数值型数字，以便参与计算。

Answer 2

自定义函数

Function COLORCOUNT(rng As Range, rng1 As Range)
Dim rng2 As Range
For Each rng2 In rng
If rng2.Font.ColorIndex = rng1.Font.ColorIndex Then
COLORCOUNT = COLORCOUNT + 1
End If
Next
End Function

然后，输入COLORCOUNT(A1:A10,A2)

统计A1到A10中字体颜色与A2相同的个数。

追问

大神自定函数如何使用？上面的函数要要写入哪里？怎么个操作步骤？能帮忙在教一下吗？

追答

ALT+F11，打开VBE

粘贴以上代码,

保存关闭VBE，函数即可使用。

A11

=COLORCOUNT(A1:A10,A2)

为了输入函数方便可以自定义函数为COLORIF

追问

大神您的方法确实可行，用您的方法我试了一下，第一列有效，但是我使用拖动的方法向右拖动就遇到了问题，如果同一行的值是黑色的那变成统计列的数据为黑色值的数量，有没有一种办法就指定为红色计数而不引用A2单元格数值的颜色呢？有劳您了！

追答

使用绝对引用
比如 =COLORCOUNT(A1：A10，$A$2)
右拉 可以实现统计单一颜色单元格，那样通用性反而不好。

本回答被提问者采纳

Answer 3

需要运用GET.CELL函数和SUMIF函数。GET.CELL函数不能直接用，所以需要定义函数。具体如下：
假设目标区域是SHEET1!A1:C3,
1.将SHEET1整体复制到SHEET2（包括格式），然后删除SHEET2所有单元格内容（保留格式）
2.选中SHEET2!A1，菜单-插入-名称-定义，输入任意名称（如“COLOR”），在“引用位置”中输入“=get.cell(24,Sheet2!A1)”，确定
3.在SHEET2!A1中输入“=COLOR”，然后复制到SHEET2!A1:C3
4.就是你需要的公式“=sumif(SHEET2!A1:C3,"=3",SHEET1!A1:C3)”

用我的方法就是统计红色个数追问

我上表的数据都是通过复制链接得来的，当我删除单元格的内容时，同时链接也不在了，有没有办法直接在此表里进行自动统计每一列红色数值的个数！大神帮帮忙，在帮忙思虑一下！小人菜鸟请多谅解！

Answer 4

1.状态栏上单击右键,选择"计数"
2.选择整个数据区域,CTRL+C查找
3.点击对话框中的"选项", 点击"字体" 设置为 红色 确定
4.点击"查找全部", 在对话框中按CTRL+A
这时候你就可以在状态栏上看到"计数=22"这样的字样追问

可是我要的是一列一列单独的计算，如果我有100列要单独计算红色数值的个数，要使用100次选择区域100次的查找功能，然后还要手动输入统计的数量，这行不通，大神您还有没有其它方法呢？

Answer 5

VBA最好最快，提取单元格属性后分别计数和求和