excel每一列按颜色分别求和

Question

如题所述

Answer 1

excel每一列按颜色分别求和

按颜色求和的思路和方法如下：

先自定义一个函数sumcolor，再用它来统计。

第一步，编写sumcolor，把下面的代码复制到EXCEL的一个代码模块中。

代码：

Function SumColor(sumrange As Range, col As Range)

Dim rng As Range

For Each rng In sumrange

If rng.Interior.ColorIndex = col.Interior.ColorIndex Then

SumColor = Application.Sum(rng) + SumColor

End If

Next rng

End Function

如图

第二步，使用此函数。在需要统计的单元格中输入：=sumcolor(统计范围，指定颜色单元格)