第1个回答 2009-09-01
个你个自定义函数.
Function SumColor(col As Range, sumrange As Range) As Integer
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($D$1,$A$1:$A$10)
$D$1单元格颜色
$A$1:$A$10区域本回答被提问者和网友采纳