Excel根据字体颜色或背景色求和

1、  选择【开发工具】 点击【Visual Basic】

2、 选择【sheet1】，右击，选择【插入】，选择【模块】

3、写入代码

Function SumByFontColorAndBGColor(Col As Range, SumRange As Range) '根据字体颜色及背景颜色求和

Application.Volatile

Dim iCell As Range

SumByFontColorAndBGColor = 0

For Each iCell In SumRange

    If iCell.Font.Color = Col.Font.Color And iCell.Interior.Color = Col.Interior.Color Then

            SumByFontColorAndBGColor = SumByFontColorAndBGColor + Application.WorksheetFunction.Sum(iCell)

    End If

Next

End Function

4、     = SumByFontColorAndBGColor（A3,A1:A12）

A3: 根据A3单元格的字体格式和背景色

A1:A12：查找的范围。