EXCEL如何根据单元格底色进行求和

1、在EXCEL中录制一个宏，代码如下：

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

'SumColor定义为整型Integer，求出的和会是整数，改为浮点型Single即可出现小数

    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

2、例如：要对从D2到D5558这个区域内的红色底色的单元格求和,$F$3是红色底色,用如下公式

=sumcolor($F$3,$D$2:$D$5558)或者=sumcolor(F3,D2:D5558) 

意思是：将D2到D5558单元格中跟F3底色相同的单元格，数值求和。

左边是用的求和公式，右边是求和的结果

3、同理可得，对同一个表格中其他颜色求和如下图，左边是用SUM函数求得的总和，右边是先对单元格底色求和再用SUM函数求得的总和，经验证是一致的，方法可行。