excel 中符合特定格式的数据求和方式？？

用宏函数Get.Cell来解决，但宏函数不能直接在Excel2003中直接用，必须定义成名称才能使用。
解题思路：
假设原始数据在A列（A2:A1000）开始，用B列作辅助列
1、定义名称。
选定B2》菜单栏》插入》名称》定义》比如AA（任意）》在下面“引用位置”输入 =GET.CELL(24,$A2)》点“添加” 》确定；

2、在B列提取出A列各单元格字体颜色代码。
在B2输入公式 =AA》然后向下复制到A1000即可；

3、用条件求和函数SUMIF来对不同颜色数字求和。
=SUMIF(B2:B1000,3,A2:A1000) 这是对红色数据求和；
=SUMIF(B2:B1000,5,A2:A1000) 这是对蓝色数据求和；
=SUMIF(B2:B1000,0,A2:A1000) 这是对黑色数据求和。

Get.Cell用法参考
http://hi.baidu.com/ximeanli/blog/item/8f167aca03dcae4ef31fe762.html

本问题的解决方案我已录制视频演示，刚才上传的动不了。需要的话，留个联系方式，我传你。

用自定义函数

Function Sumcol(color As Range, rng As Range)
Dim mycells As Range
Application.Volatile
For Each mycells In rng
If mycells.Font.ColorIndex = color.Font.ColorIndex Then
Sumcol = mycells.Value + Sumcol
End If
Next