Excel VBA按颜色求和（偏移单元格）功能实现问询

刚接触VBA就啃这个需求确实有点费劲儿，我给你整理了一个清晰的实现方案，包含自定义颜色选择和偏移求和的核心功能，代码里每一步都加了注释，你跟着走就能搞定！

整体思路 #

1. 让用户选择一个带有目标颜色的单元格（不用记复杂的颜色代码，直观方便）
2. 遍历指定的目标单元格区域（比如你例子里的A列）
3. 判断每个单元格的填充色是否和用户选择的颜色匹配
4. 如果匹配，就把它偏移位置的单元格数值（比如右侧B列）累加到总和里
5. 最后弹出结果或者直接写入指定单元格

完整宏代码（带交互提示） #

这个宏会引导你一步步完成操作，非常适合新手：

Sub SumByCellColor()
    Dim targetColor As Long
    Dim targetRange As Range
    Dim sumRangeOffset As Integer
    Dim totalSum As Double
    Dim colorSample As Range
    Dim cell As Range
    
    ' ====================== 第一步：让用户选择目标颜色 ======================
    On Error Resume Next ' 处理用户点击取消的情况
    Set colorSample = Application.InputBox("请点击一个带有目标颜色的单元格", "选择颜色", Type:=8)
    On Error GoTo 0
    
    ' 如果用户取消选择，直接退出宏
    If colorSample Is Nothing Then
        MsgBox "你取消了颜色选择", vbInformation
        Exit Sub
    End If
    targetColor = colorSample.Interior.Color ' 获取选中单元格的颜色代码
    
    ' ====================== 第二步：让用户选择要检查颜色的单元格区域 ======================
    On Error Resume Next
    Set targetRange = Application.InputBox("请选择要检查颜色的单元格区域（比如A1:A10）", "选择目标区域", Type:=8)
    On Error GoTo 0
    
    If targetRange Is Nothing Then
        MsgBox "你取消了区域选择", vbInformation
        Exit Sub
    End If
    
    ' ====================== 第三步：设置偏移列数（比如A列对应B列，偏移1列） ======================
    sumRangeOffset = InputBox("请输入求和单元格相对于目标单元格的偏移列数（比如右侧1列填1，左侧填-1）", "设置偏移", 1)
    
    ' 检查输入是否为有效数字
    If Not IsNumeric(sumRangeOffset) Then
        MsgBox "请输入有效的数字！", vbExclamation
        Exit Sub
    End If
    
    ' ====================== 第四步：遍历区域，求和符合条件的偏移单元格 ======================
    totalSum = 0
    For Each cell In targetRange
        ' 判断单元格填充色是否匹配目标颜色
        If cell.Interior.Color = targetColor Then
            ' 检查偏移后的单元格是否有数值，避免错误累加
            If IsNumeric(cell.Offset(0, sumRangeOffset).Value) Then
                totalSum = totalSum + cell.Offset(0, sumRangeOffset).Value
            End If
        End If
    Next cell
    
    ' ====================== 第五步：输出结果 ======================
    MsgBox "符合颜色条件的偏移单元格总和为：" & Format(totalSum, "#,##0.00"), vbInformation
    ' 也可以把结果直接写入指定单元格，取消下面注释即可（示例写入C1）
    ' Range("C1").Value = totalSum
End Sub

代码关键部分解释 #

• 颜色选择逻辑：用Application.InputBox(Type:=8)让用户点击单元格获取颜色，比手动输入颜色代码友好太多，完全不用记复杂的RGB值
• 错误处理：加了On Error Resume Next处理用户中途取消操作的情况，避免宏直接报错崩溃
• 灵活偏移设置：支持自定义偏移列数，不仅限于右侧一列，左侧或者多列偏移都能实现
• 数值校验：判断偏移单元格是否为数字，防止把文本、空值或者错误值加进去导致结果异常

自定义函数版本（直接在单元格用公式） #

如果你想直接在Excel单元格里用公式计算，比如=SumColorOffset(A1:A10, 1, C1)，可以用这个自定义函数：

Function SumColorOffset(targetRange As Range, offsetCols As Integer, colorCell As Range) As Double
    Dim targetColor As Long
    Dim cell As Range
    Dim total As Double
    
    targetColor = colorCell.Interior.Color
    total = 0
    
    For Each cell In targetRange
        If cell.Interior.Color = targetColor Then
            If IsNumeric(cell.Offset(0, offsetCols).Value) Then
                total = total + cell.Offset(0, offsetCols).Value
            End If
        End If
    Next cell
    
    SumColorOffset = total
End Function

使用示例：在单元格输入=SumColorOffset(A1:A10, 1, C1)，其中：

• A1:A10是要检查颜色的区域
• 1是偏移列数（右侧1列）
• C1是带有目标颜色的样本单元格

使用步骤（新手友好） #

1. 打开你的Excel文件，按Alt + F11打开VBA编辑器
2. 右键点击左侧的工作簿名称 → 插入 → 模块
3. 把上面的代码粘贴到模块窗口里
4. 回到Excel界面，按Alt + F8调出宏窗口，选择SumByCellColor点击执行（如果用自定义函数直接在单元格输入公式即可）
5. 按照提示一步步操作：选颜色单元格 → 选要检查的区域 → 输入偏移列数 → 查看结果！

刚开始写VBA别着急，多调试几次，比如先找几个测试单元格试试，看看结果对不对，有问题再对照注释一步步排查~

内容的提问来源于stack exchange，提问作者Robert Wood