Excel中如何让红色单元格进行累加
如图，怎么样让满足条件（数字为红色），进行累加，不用sum公式和加法计算，因为很多红色的
在别人的贴上看到的，使用VBA，但是自己用了又不行
Function COLORSUM(xx As Range, yy As Range) As Double
y = yy.Font.ColorIndex
For Each x In xx
If x.Font.ColorIndex = y Then
xxx = xxx + x.Value
End If
Next
COLORSUM = xxx
Application.Volatile
End Function
但是好像又不能运算
1、选择C1:C26单元格 ，按Ctrl+F3，“自定义名称”，“新建”，
名称：颜色
引用位置：=GET.CELL(24,!B1)
确定，完成自定义名称；
2、在C1单元格输入以下公式，然后向下填充公式
=颜色
得到字体颜色代码
3、输入以下公式，然后向下填充公式
=SUMIF(C$1:C1,3,B$1:B1)
可以加一辅助列，用宏表GET.CELL函数取得单元格颜色的数值，然后条件求和。
还有就是当初上颜色时，还不如直接加一个辅助列，标出来，然后条件求和。
追问那样比较复杂，我只是把其中1列独立出来，其实很多列，有没有简单的，有看到有用VBA、宏的，
追答
新建一个模块，把这个代码复制粘贴到右边的代码框中。
在工作表中输入：=COLORSUM（A2：A40，A2）其中后边的A2是带红颜色单元格中的任何一个单元格。
试过了可以，但是如果数据有变更的话(比如原来数字颜色是黑的，现在变成红色)，结果不会自动更新，能不能设置自动更新
试过了可以，但是如果数据有变更的话(比如原来数字颜色是黑的，现在变成红色)，结果不会自动更新，能不能设置自动更新
本回答被提问者采纳如下图:
选择第一行>>菜单栏的数据>>筛选
点击A1单元格的筛选按钮>>按颜色筛选>>选红色
选择A列,右下角状态栏即显示求和值
