Excel 根据颜色求和，计数

1、首先我们要按ALT +F11键，进入VBE,然后插入模块，如下图。

2、在新建的模块中粘贴上代码：

Function Color_sum(rng As Range, rng2 As Range, n As Integer)
'n = 1 表示进行加总，n=0 表示 计数
Application.Volatile
Dim Ra As Range
Dim myColor As Double
Dim mySum As Double
Dim myCount As Double
myColor = rng2.Interior.ColorIndex
For Each Ra In rng
If Ra.Interior.ColorIndex = myColor Then
If n = 1 Then
mySum = Ra + mySum
End If
If n = 0 Then
mySum = mySum + 1
End If
End If
Next
Color_sum = mySum
End Function

3、在需要的单元格输入公式。

加总=Color_sum($A$1:$C$26,$E4,1)

计数=Color_sum($A$1:$C$26,$E4,0)

参数3 个，第一个是需要计算的区间，第二个是提取颜色的单元格，第三个选择加总还是计数。如图