1，按背景颜色统计个数
Function Countcolor(col As Range, countrange As Range)
Dim icell As Range
Application.Volatile
For Each icell In countrange
If icell.Interior.ColorIndex = col.Interior.ColorIndex Then
Countcolor = Countcolor + 1
End If
Next icell
End Function

2，按背景颜色求和
Function Sumcolor(col As Range, sumrange As Range)
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

3 统计个数，然后在一个单元格内返回结果


Function test(rng As Range) As String
Dim dic As Object
Dim c As Range
Dim arr, v, k, t
Set dic = CreateObject("scripting.dictionary")
arr = rng.Value
For Each c In rng.Cells
v = c.Value
dic(v) = dic(v) + 1
Next
k = dic.keys
t = dic.items
For i = 0 To UBound(k)
k(i) = k(i) & t(i)
Next
test = Join(k, ",")
Set dic = Nothing
End Function