第1个回答 2014-08-30
Function SumColor(rColor As Range, rSumRange As Range)
Dim rCell As Range
Dim iCol As Integer
Dim vResult
Application.Volatile
iCol = rColor.Interior.ColorIndex
For Each rCell In rSumRange
If rCell.Interior.ColorIndex = iCol Then
vResult = WorksheetFunction.Sum(rCell) + vResult
End If
Next rCell
SumColor = vResult
End Function
存盘退出编辑器
在你需要结果的单元输入=sumcolor(A1,A1:A100)
A1是具有你需要求和的背景颜色的任意一个单元格,A1:A100是你所要相加的区域(包括背景颜色不同的单元格,只要把你要加的单元格框进去就行)本回答被网友采纳