如何自动求A列中红字单元格之和？

如果红色是手动添加的颜色，CTRL+F，点开选项，点格式右边的下箭头，从单元格选择格式，点击一下红色的单元格，查找全部，然后红色的就被选中了

在左上角名称处，输入=红色，那个红色两字随便你写，一会用

然后找一个地方输入 =sum(红色)
回车之后，所有红色的区域就会被求和。
如果你红色的地方是条件格式出来的，那就先选中A列，复制，然后点开始，剪贴板右下方的箭头，打开剪贴板，然后，点击一下刚才复制的内容，这时条件格式的颜色就会被赋予单元格成为真正的颜色，再按上面的步骤操作，就可以对有颜色的单元格求和了。

标准色255的红的话，可以循环这样加，不过行数超多的话，会慢吧
Sub 取单元格红色字体的和()
Dim zhi As Long
Dim i, n As Integer
i = Range("a1000000").End(xlUp).row
For n = 1 To i
If Range("a" & n).Font.Color = 255 Then
zhi = zhi + Range("a" & n).Value
End If
Next
MsgBox zhi
End Sub