excel中把颜色为红色的相加

Question

如题所述

Answer 1

假如你的数据列在A列，利用一个空白列作为辅助列，如B列。
选择B1单元格，插入→名称→定义
在上面的名称框中输入cl
在下面的引用位置中输入
=get.cell(24,$A1)
添加，关闭
在B1中输入
=cl
向下复制，这样，黑色字体（应该是自动生成的吧）,返回1，红色字体将返回3
下面用SUMIF函数进行分别计算就可以了。
黑色字体求和公式
=Sumif(B1:B10000,1,A1:A10000)
红色字体求和公式
=Sumif(B1:B10000,3,A1:A10000)

Answer 2

先点工具--宏--visual
Basic编辑器,双击sheet1(sheet1),在右边的编辑框中输入下列程序
Sub
redadd()
For
i
=
1
To
100'计算第一列中前一百行的数据,如要N行,可把100改为你的数据个数N
If
ActiveSheet.Cells(i,
1).Font.ColorIndex
=
3
Then
'前面的i表示行数,1表示列数,即A列,可根据你的实际更改,等号后面的3,表示红色.
s
=
ActiveSheet.Cells(i,
1)'将是红色的数据赋给临时变量S
ActiveSheet.Cells(1,
2)
=
ActiveSheet.Cells(1,
2)
+
s
'将答案累加后的结果存在B1单元格里,括号中的1表示第一行,2表示第二列(B列),即B1单元格,可根据你的实际更改
End
If
Next
i
End
Sub
专门为你制作的程序,调试结果,正确!谢谢采用.