3889370_g.zip

今天应一网友要求：按颜色求和，在网上一查还真找到了这一方法，经过测试(在

Excel2003 和 2007 中)，非常好用，整理出来，与大家分享：

Excel 本身没有这个功能，可用以下办法实现：

打开你的工作表：点工具--宏--Visual Basic 编辑器，在左边最上一行点右键--

插入--模块，然后在打开的编辑框中粘贴以下代码：

Function CountColor(col As Range, countrange As Range) As Integer

End If

Next icell

End Function

Function SumColor(col As Range, sumrange As Range) As Integer

Dim icell As Range

Application.Volatile

For Each icell In sumrange

If icell.Interior.ColorIndex = col.Interior.ColorIndex

Then

SumColor = Application.Sum(icell) + SumColor

用法：

按颜色求和：sumcolor（颜色示列格，求和区域或列）；按颜色计数：countcolor

（颜色示列格，求和区域或列）

例如：要求和从 a1 到 a10 这个区域内的红色格,

=sumcolor($a$1,$a$1:$A$10)

计数：countcolor($a$1,$a$1:$A$10)

注意：$a$1 必须是红色格，这是定义颜色的，你也可以设成其它格，但必须是你

要求和的颜色

ok！有问题可以留言。