Excel VBA需求：为F列指定底色单元格添加区间求和公式

以下是实现需求的VBA代码，会遍历F列所有单元格，为底色为RGB(252,228,214)的单元格自动插入求和公式，求和范围为该单元格上方至上一个同底色单元格之间的无底色单元格：

Sub AddSumToColoredCells()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim lastColoredRow As Long
    
    ' 设置目标工作表，可根据实际修改Sheet名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "F").End(xlUp).Row
    lastColoredRow = 0 ' 初始化上一个同底色单元格的行号
    
    For i = 1 To lastRow
        ' 检查当前单元格底色是否为目标RGB值
        If ws.Cells(i, "F").Interior.Color = RGB(252, 228, 214) Then
            ' 判断是否存在上一个同底色单元格
            If lastColoredRow = 0 Then
                ' 第一个同底色单元格，求和范围从第1行到当前单元格上一行
                If i > 1 Then
                    ws.Cells(i, "F").Formula = "=SUM(F1:F" & i - 1 & ")"
                End If
            Else
                ' 求和范围为上一个同底色单元格下一行到当前单元格上一行
                If lastColoredRow < i - 1 Then
                    ws.Cells(i, "F").Formula = "=SUM(F" & lastColoredRow + 1 & ":F" & i - 1 & ")"
                Else
                    ' 中间无单元格，赋值0或空，可根据需求调整
                    ws.Cells(i, "F").Value = 0
                End If
            End If
            ' 更新上一个同底色单元格的行号
            lastColoredRow = i
        End If
    Next i
End Sub

代码说明： #

• 工作表指定：通过Set ws = ThisWorkbook.Worksheets("Sheet1")指定目标工作表，需根据你的实际表名修改
• 行范围遍历：获取F列最后一行数据，避免无效遍历
• 底色判断：通过Interior.Color = RGB(252,228,214)精准匹配目标单元格底色
• 求和区间计算：
  • 第一个目标单元格：求和从F1到当前单元格的上一行
  • 后续目标单元格：求和从上一个目标单元格的下一行到当前单元格的上一行
  • 若两个目标单元格相邻，直接赋值0（可根据需求改为空值）
• 效率优化：仅遍历F列已使用区域，减少不必要的计算

使用方法：打开Excel按Alt+F11打开VBA编辑器，插入模块后粘贴代码，修改工作表名称后运行宏即可。

内容的提问来源于stack exchange，提问作者Almaz Bakirov