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 个，第一个是需要计算的区间，第二个是提取颜色的单元格，第三个选择加总还是计数。如图