作者：乔山办公网日期：
返回目录：excel表格制作
无须另用一列得到某个值再用条件格式，可直接在原列中用条件格式更方便直观；zd
选中区域（以D126、H126往下的专区域为例），选择：开始--条件格式--新建规则；属
点击“使用公式确定要设置格式的单元格”；
输入条件公式：=AND($D126=$H126,$H126<>"")，并设置一种显示格式，比如红色填充；
确定后，两列相同的内容即会显色。
sub colorSum()
Dim s as long,r as Range
For Each r n Range("B2:B18")
If r. Interior. Color=vbRed Then
s=r. offset(,-1).Value+s
End If
Next r
[C1]="颜色百求度和为专：属"
[C2]=s
End sub
通过自定义函数吧zhidao。
excel中按alt+F11 进入vba，新建一个“模块”，内把下面代码贴进去
Function ColorSum(myRange As Range) As Double
Dim c As Range
For Each c In myRange.Cells
If c.Interior.ColorIndex <> xlColorIndexNone Then
ColorSum = ColorSum + c.Value
End If
Next c
End Function
这样就可以使用colorsum函数了，如图容
首先打开数据区域，发现业绩评分中的字体有黑色的有红色的有蓝色的，那么如何按照字体的颜色进行求和和计数，如下图所zhidao示：
依次选择数据分析，分析与统计，中的颜色统计，如下图所示：
单击内后在弹出的对话框中，我们选择数据区域，如下图所示：
选择好数据区域后，我们需要确定按照哪个的字体颜色进行统计，此容时我们可以单击颜色按钮，并选择带有蓝色字体的单元格，如下图所示：
确定后按照求和进行统计，单击确定并选择输出单元格即可显示输出结果，如下图所示：
接下来我们要看的是按照字体的颜色进行计数，方法同上，只是在最后的时候，我们需要顶点选求个数按钮，如下图所示：