1、在EXCEL界面中，按下组合键 Alt + F11，弹出一个MicrosoftVisual Basic窗口。
2、在窗口中，执行菜单操作：“插入”—>“模块”，如下图。
3、看到一个“（通用）”的窗体，这个窗体就是用来输入VBA代码的窗体，如下图：
4、将如下代码粘贴到该窗体中：FunctionSumByColor(Ref_color As Range, Sum_range As Range)Application.VolatileDim iCol As LongDim rCell As RangeSumByColor = 0iCol =Ref_color.Interior.ColorIndexFor Each rCell InSum_range If iCol = rCell.Interior.ColorIndex And WorksheetFunction.IsNumber(rCell) Then SumByColor = SumByColor + rCell.Value End IfNext rCellEnd Function结果如下图：
5、关闭Microsoft VisualBa衡痕贤伎sic窗口，返回到EXCEL窗口，函数SumByColor设置完毕。设置完成的函数SumByCo造婷用痃lor（Ref_color, Sum_range），函数有2个参数：第一个是要想统计颜色的单元格（任意一个与要汇总颜色相同的单元格均可），第二个是要汇总的单元格区域。如本例，在B16格中输入： =SumByColor(B15,B2:F13) 得出结果：1690748
