按颜色计数、求和、算平均值或最大值?学这个函数就够啦!
在数据的海洋中，你是否还在手动筛选和统计那些颜色标记的数据？告别低效，本文将带你领略只需5分钟就能学会的Excel按颜色筛选统计技巧，让你的数据操作变得轻松又高效！
什么是ColorAction函数？
ColorAction函数是自定义函数，在使用该函数前，必须进行如下操作：
首先，按Alt+F+T打开Excel选项，单击自定义功能区，勾选如下开发工具，单击确定。
然后，回到表格界面，单击开发工具选项卡，单击“Visual Basic”-插入-模块，然后复制粘贴如下代码，单击保存，直接窗口最右上角的带框的×。
Function ColorAction(ary2 As Range, x As Range, action As String) As Variant
Dim cell As Range
Dim count As Long
Dim total As Double
Dim maxVal As Double
Dim minVal As Double
Dim result As Variant
Application.Volatile
count = 0
total = 0
maxVal = WorksheetFunction.Min(ary2) ' 初始化为ary2中的最小值
minVal = WorksheetFunction.Max(ary2) ' 初始化为ary2中的最大值
' 遍历ary2中的每个单元格
For Each cell In ary2
' 检查填充颜色是否匹配且单元格值为数字
If cell.Interior.Color = x.Interior.Color And IsNumeric(cell.Value) Then
count = count + 1
total = total + cell.Value
' 更新最大值和最小值
If cell.Value > maxVal Then maxVal = cell.Value
If cell.Value < minVal Then minVal = cell.Value
End If
Next cell
' 根据action参数决定返回值
Select Case action
Case "Count"
result = count
Case "Sum"
result = total
Case "Average"
If count > 0 Then
result = total / count
Else
result = CVErr(xlErrNA)
End If
Case "Max"
If count > 0 Then
result = maxVal
Else
result = CVErr(xlErrNA)
End If
Case "Min"
If count > 0 Then
result = minVal
Else
result = CVErr(xlErrNA)
End If
Case Else
result = CVErr(xlErrValue)
End Select
ColorAction = result
End Function
最后，这样自定义函数ColorAction就定义好了，该函数主要用于统计带颜色的单元格，包括三个参数。
该函数语法：=ColorAction(ary2,x,action)
- ary2: 需要进行统计的数据范围，为单元格区域。
- x: 参照单元格，其字体颜色将用于匹配 ary2 中的单元格。
- action: 一个字符串，指定要执行的统计操作（"Count", "Sum", "Average", "Max", "Min"）
该函数的统计功能计数、求和、求平均值、求最大值、求最小值5项。下面来看该函数的实战应用
ColorAction函数实战案例
1、求1月份业绩被标记为黄色的人数
=ColorAction(B2:B14,B3,"Count")
2、求1月至5月被标黄的业绩总和
=ColorAction(B2:F14,B3,"Sum")
3、求业绩被标记为黄色的单元格的平均值
=ColorAction(B2:F14,B3,"Average")
4、求业绩被标记为黄色的单元格的最大值
特别注意：虽然该函数使用起来非常简单，但也有限制：1、支持按照单元格的填充颜色进行统计（不能按照字体颜色进行统计）。2、第3参数须使用英文引号且英文首字母须大写，否则报错。
本文详细介绍了如何使用Excel的自定义函数 ColorAction 来实现按颜色筛选并进行统计。通过这个技巧，你可以快速得到特定颜色单元格的统计数据，无论是计数、求和还是计算平均值等。
掌握了这个Excel技巧，你的数据处理能力将大大提升。不要犹豫，立即尝试这个技巧，让你的工作更加出色！如果你喜欢这篇文章，别忘了点赞和分享，让更多的朋友也能提升他们的Excel技能。记得，实践是学习的最佳途径，所以赶快打开你的Excel，开始实践吧！