第3个回答 2013-08-01
用宏自定义一函数。同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码:
Function sumcolor(rng1 As Range, rng2 As Range) As Single
Dim cell As Range
sumcolor = 0
For Each cell In rng1
If cell.Font.Color = rng2.Font.Color Then sumcolor = sumcolor + cell
Next cell
End Function
回到Excel中,输入 =sumcolor(C3:E7,D4),其中C3:E7是待求和的单元格区域,D4单元格有需要的字体颜色,这两个都可以改的。
如果是表格底色相同,将上述代码中的一句话改为
If cell.interior.Color = rng2.interior.Color Then sumcolor = sumcolor + cell
就可以了。本回答被网友采纳