Excel技巧应用篇：根据单元格颜色求和

在工作过程中，有时为了方便区分不同的类别，一般都会选用给单元格标注颜色，这种方法简单快捷。那如果后续想根据单元格颜色来进行汇总怎么办呢？我们都知道可以按单元格颜色进行筛选，那除了最简单的筛选，还有什么其他办法呢？今天给大家介绍几个按Excel单元格颜色求和的方法。

一、自定义函数CSum

颜色求和的自定义函数CSum =CSum(A2:A13,D3)

其实按颜色求和还有一个超简单的方法：查找法 操作步骤： 1、按 Ctrl+F 打开查找窗口，点击选项按钮 - 格式 - 从单元格中选取格式 - 点击表中你要的颜色。

2、点击查找全部按钮后,再按 Ctrl +A 即可选中所有相同颜色的单元格。

在下面状态栏中，你可以看到该颜色的数字之和了。

如果你非要用公式求和，则需要借用宏表函数来完成。 操作步骤：

1、定义名称 选取任一个空单元格，开始 - 定义名称 颜色：=get.cell(63,Csum!A2)

2、取颜色值 在上步定义名称的单元格中输入 =颜色并复制到和上表相同大小的单元格区

3、设置求和公式 I2单元格公式 =SUMIF($A$15:$E$26,H2,$A$2:$E$13)

二.VBA求和

获取单元格颜色最方便最快捷的方式当然是使用VBA。Excel本身包含的函数无法实现按颜色求和，我们通过VBA自己构建一个自定义函数来帮助实现按颜色求和。

按住Alt+F11或者在工作表标签上右键“查看代码”打开VBA编辑器。

在VBA编辑器里点击插入下方的“模块”。

点击新创建的模块--模块1，在右侧窗口输入以下代码。

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

    Dim icell As Range

    Application.Volatile

    For Each icell In sumrange

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

            SumColor = Application.Sum(icell) + SumColor

        End If

    Next icell

End Function

解析：

SumColor是自定义的函数名称，里面包括两个参数，第一参数col是要获取颜色的单元格，第二参数sumrange是求和区域。

（这里相当于我们自己创建一个函数SumColor，并且自己定义函数的2个参数的含义。对于初学者来说，暂时可以不用理解这段代码的意思，只需要保存下来，作为模板套用即可）

点击“文件”-“保存”，然后直接关闭VBA编辑器即可。

自定义函数定义好之后，直接在工作表进行使用就可以了。在F2:F5单元格输入“=SumColor(E2,$A$2:$B$10)”就可以了。

注意：宏表函数和VBA用法由于使用了宏，在EXCEL2003版本可以直接保存，但2003以上版本需要保存为“xlsm”格式才能正常使用，要不然代码会丢失，关于这个小技巧，你学会了么？动手试试吧！

对于标记颜色的单元格来说，查找这个方法容易使用但适用场景不多，VBA功能很强大，但是要想彻底弄懂还需要更深层次的学习。宏表函数这个方法比较简单，而且也比较实用，觉得有用的话赶紧收藏吧！