Excel技术问询：如何按A=C且B列累计和≤对应D值高亮单元格

操作步骤： #

1. 选中B列目标区域（如B1:B9）
2. 点击「开始」→「条件格式」→「新建规则」→ 选择「使用公式确定要设置格式的单元格」
3. 输入以下公式：

=SUMIF($A$1:$A1,$A1,$B$1:$B1) <= VLOOKUP($A1,$C:$D,2,FALSE)

4. 设置填充颜色为绿色，确认应用即可。

公式说明： #

• SUMIF($A$1:$A1,$A1,$B$1:$B1)：计算从首行到当前行中，所有A列值与当前行A值匹配的B列累计和（混合引用确保首行锁定、当前行随单元格动态变化）
• VLOOKUP($A1,$C:$D,2,FALSE)：根据当前行A列的值，在C列匹配并返回对应D列的阈值
• 整体逻辑：判断累计和是否≤对应阈值，满足则触发高亮

若条件格式公式未达预期，可通过VBA批量处理：

Sub HighlightQualifiedCells()
    Dim ws As Worksheet
    Dim lastRow As Long, i As Long
    Dim targetVal As String, threshold As Double, runningTotal As Double
    
    Set ws = ActiveSheet ' 可指定工作表，如Sheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 清除B列原有格式
    ws.Range("B1:B" & lastRow).ClearFormats
    
    ' 遍历C列的每个匹配值及对应阈值
    For Each uniqueVal In ws.Range("C1:C" & ws.Cells(ws.Rows.Count, "C").End(xlUp).Row)
        targetVal = uniqueVal.Value
        threshold = uniqueVal.Offset(0, 1).Value
        runningTotal = 0
        
        ' 遍历A列，累计匹配值的B列数据并判断
        For i = 1 To lastRow
            If ws.Cells(i, "A").Value = targetVal Then
                runningTotal = runningTotal + ws.Cells(i, "B").Value
                If runningTotal <= threshold Then
                    ws.Cells(i, "B").Interior.Color = RGB(146, 208, 80) ' 绿色填充
                Else
                    Exit For ' 累计超阈值后，终止当前值的遍历
                End If
            End If
        Next i
    Next uniqueVal
End Sub

代码说明： #

1. 先清除B列原有格式避免冲突
2. 遍历C列所有目标值，获取对应D列阈值
3. 对每个目标值，累计匹配行的B列数据，累计和≤阈值时高亮对应B单元格，超阈值则停止该值的后续遍历

内容的提问来源于stack exchange，提问作者Sasa VESELINOVIĆ