Excel中需用VBA自定义函数处理按颜色求和或计数：一、SumByColor按背景色索引求和；二、CountByColor按背景色计数；三、SumByRGB用RGB值精确匹配；四、SumByColorDialog宏按钮交互操作；五、SumByConditionalColor处理条件格式着色。
如果您需要在Excel中对具有特定背景色或字体色的单元格进行求和或计数，但内置函数无法直接识别颜色，此时需借助VBA自定义函数实现。以下是几种可行的VBA解决方案：
一、创建自定义函数SumByColor（按背景色求和）
该方法通过编写Function过程，接收区域参数与目标颜色索引值，遍历每个单元格并比对其Interior.ColorIndex属性，累加符合条件的数值。
1、按Alt+F11打开VBA编辑器，插入新模块（菜单栏：插入 → 模块）。
2、粘贴以下代码：
Function SumByColor(sumRange As Range, colorRange As Range) As Double
Dim clr As Long
clr = colorRange.Cells(1, 1).Interior.ColorIndex
Dim cell As Range
For Each cell In sumRange
If cell.Interior.ColorIndex = clr Then SumByColor = SumByColor + cell.Value
Next cell
End Function
3、返回Excel工作表，在任意空白单元格输入公式：=SumByColor(A1:A100,B1)，其中A1:A100为待求和区域，B1为参考颜色所在单元格。
二、创建CountByColor（按背景色计数）
此函数用于统计指定区域内具有相同背景色的非空单元格数量，适用于颜色分类统计场景。
1、在同一个VBA模块中，新增以下函数代码：
Function CountByColor(countRange As Range, colorRange As Range) As Long
Dim clr As Long
clr = colorRange.Cells(1, 1).Interior.ColorIndex
Dim cell As Range
For Each cell In countRange
If cell.Interior.ColorIndex = clr And Not IsEmpty(cell.Value) Then CountByColor = CountByColor + 1
Next cell
End Function
2、在工作表中使用公式：=CountByColor(A1:A100,C1)，C1为颜色样本单元格，A1:A100为统计范围。
三、支持RGB颜色值的SumByRGB函数
ColorIndex存在局限性（仅56种标准色），使用RGB可精确匹配任意填充色，避免因主题切换导致颜色索引变化而失效。
1、在VBA模块中添加如下函数：
Function SumByRGB(sumRange As Range, colorRange As Range) As Double
Dim rgbVal As Long
rgbVal = colorRange.Cells(1, 1).Interior.Color
Dim cell As Range
For Each cell In sumRange
If cell.Interior.Color = rgbVal Then SumByRGB = SumByRGB + cell.Value
Next cell
End Function
2、调用方式为：=SumByRGB(A1:A100,D1)，D1单元格需设置为目标RGB颜色（如手动填充）。
四、一键运行的宏按钮（无需公式）
通过Sub过程实现交互式操作，用户选择区域与颜色样本后，自动输出结果至指定位置，降低使用门槛。
1、在模块中插入以下宏代码：
Sub SumByColorDialog()
Dim sumRng As Range, clrRng As Range
On Error Resume Next
Set sumRng = Application.InputBox("请选择求和区域", "区域选择", Type:=8)
If sumRng Is Nothing Then Exit Sub
Set clrRng = Application.InputBox("请选择颜色样本单元格", "颜色选择", Type:=8)
If clrRng Is Nothing Then Exit Sub
Dim total As Double, clrIdx As Long
clrIdx = clrRng.Cells(1, 1).Interior.ColorIndex
For Each cell In sumRng
If cell.Interior.ColorIndex = clrIdx Then total = total + cell.Value
Next cell
MsgBox "所选颜色对应数值总和为：" & total
End Sub
2、返回Excel，开发工具 → 插入 → 按钮（窗体控件），绘制按钮并指定宏为SumByColorDialog。
五、处理条件格式着色的方案
当颜色由条件格式生成时，Interior.ColorIndex返回-4142（xlNone），需改用DisplayFormat属性读取渲染后颜色。
1、新建函数SumByConditionalColor：
Function SumByConditionalColor(sumRange As Range, colorRange As Range) As Double
Dim rgbVal As Long
rgbVal = colorRange.Cells(1, 1).DisplayFormat.Interior.Color
Dim cell As Range
For Each cell In sumRange
If cell.DisplayFormat.Interior.Color = rgbVal Then SumByConditionalColor = SumByConditionalColor + cell.Value
Next cell
End Function
2、使用公式：=SumByConditionalColor(A1:A100,E1)，E1为应用了相同条件格式规则的样本单元格。
