1、一在 Excel2007 中按单元格颜色求和按字体颜色求和，经过测试(在 Excel2003 和 2007 中)，非常好用，整理出来，与大家分享：Excel 本身没有这个功能，可用以下办法实现：打开你的工作表：点工具-宏-Visual Basic 编辑器，在左边最上一行点右键-插入- 模块，然后在打开的编辑框中粘贴以下代码：Function CountColor(col As Range, countrange As Range) As IntegerDim icell As RangeApplication.VolatileFor Each icell In countrangeIf ice
2、ll.Interior.ColorIndex = col.Interior.ColorIndex ThenCountColor = CountColor + 1End IfNext icellEnd FunctionFunction SumColor(col As Range, sumrange As Range) As IntegerDim icell As RangeApplication.VolatileFor Each icell In sumrangeIf icell.Interior.ColorIndex = col.Interior.ColorIndex ThenSumColor = Application.Sum(icell) + SumColorEnd IfNext icellEnd Function然后关闭，反回到工作表，点击-工具-选项-安全性-宏安全性- 安全级选-低- 确定保存关闭工作表，然后再打开，这时就可以用了
