Excel中需用特殊方法按背景色求和：一、用GET.CELL函数配合名称管理器生成颜色索引并条件求和；二、编写VBA自定义函数ColorSum遍历区域比对ColorIndex累加；三、运行Sub宏SumByColor即时统计选区同色数值和。
olorSum遍历区域比对ColorIndex累加；三、运行Sub宏SumByColor即时统计选区同色数值和。如果您在Excel中需要根据单元格背景颜色对数值进行求和，但标准函数无法直接识别颜色，则需借助特殊技术手段实现。以下是解决此问题的步骤：
一、使用GET.CELL函数配合名称管理器创建动态颜色标识
GET.CELL是Excel 4.0宏表函数，虽不可直接在工作表中使用，但可通过名称管理器定义名称并返回单元格背景色索引值，进而辅助构建条件求和逻辑。
1、按Ctrl+F3打开“名称管理器”，点击“新建”。
2、在“名称”栏输入ColorIndex，在“引用位置”栏输入：=GET.CELL(63,Sheet1!$A1)（请将Sheet1替换为实际工作表名，$A1替换为目标数据区域首单元格，注意保持相对行号）。
3、在空白列（如Z列）第一行输入公式：=ColorIndex，向下填充至与数据行数一致。
4、在另一列（如AA列）输入公式：=IF(Z1=6, A1, 0)（其中6代表红色索引值，A1为对应求和数值单元格；请根据实际颜色索引及数据列调整）。
5、对AA列使用SUM函数求和，即得指定颜色单元格数值总和。
二、编写VBA自定义函数ColorSum
通过插入模块编写Function过程，遍历指定区域，判断每个单元格Interior.ColorIndex属性是否匹配目标颜色值，并累加符合条件的数值。
1、按Alt+F11打开VBA编辑器，右键“工程资源管理器”中的工作簿名，选择“插入”→“模块”。
2、在模块窗口中粘贴以下代码：
Function ColorSum(colorCell As Range, sumRange As Range) As Double
Dim i As Long
Dim total As Double
total = 0
For i = 1 To sumRange.Cells.Count
If sumRange.Cells(i).Interior.ColorIndex = colorCell.Interior.ColorIndex Then
total = total + sumRange.Cells(i).Value
End If
Next i
ColorSum = total
End Function
3、关闭VBA编辑器，返回工作表。
4、在任意空白单元格输入公式：=ColorSum(A1,A1:A10)（A1为带目标颜色的参照单元格，A1:A10为待求和区域）。
三、使用VBA即时执行颜色求和并输出结果
不依赖自定义函数，而是通过Sub过程直接获取当前选区中指定颜色单元格的数值和，并弹出消息框显示结果，适用于一次性快速统计。
1、按Alt+F11打开VBA编辑器，插入新模块。
2、粘贴以下代码：
Sub SumByColor()
Dim rng As Range, cell As Range
Dim sumVal As Double, targetColor As Long
On Error Resume Next
Set rng = Selection
If rng Is Nothing Then Exit Sub
targetColor = rng.Cells(1, 1).Interior.ColorIndex
sumVal = 0
For Each cell In rng
If cell.Interior.ColorIndex = targetColor Then
If IsNumeric(cell.Value) Then sumVal = sumVal + cell.Value
End If
Next cell
MsgBox "所选区域内颜色匹配单元格数值之和为：" & sumVal
End Sub
3、返回工作表，选中包含数据及颜色的目标区域。
4、按Alt+F8调出宏列表，选择SumByColor并运行。
