如何按条件设置Excel D列单元格颜色：Mary对应D列百分比总和非100%时变色

我来帮你搞定这个需求，先拆解下你原代码里的几个核心问题：

• 你把公式字符串和VBA的判断逻辑混在一起了，这种写法不符合VBA的语法规范
• 循环没有先筛选出B列是Mary的行，会遍历大量无关行，效率很低
• 没有处理浮点精度问题，直接判断不等于1可能会因为Excel的小数存储误差导致误判

正确的VBA实现方案 #

这个代码会先计算所有B列为Mary的D列数值总和（注意：Excel里的百分比是小数格式，1就代表100%），然后遍历目标行，当总和不符合要求时给对应D列单元格标记颜色：

Sub MarkMaryPercentages()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim maryTotal As Double
    Dim currentRow As Long
    
    ' 替换成你实际要操作的工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    ' 计算所有B列为Mary的D列数值总和
    maryTotal = WorksheetFunction.SumIf(ws.Range("B:B"), "Mary", ws.Range("D:D"))
    
    ' 遍历行（假设第1行是表头，从第2行开始）
    For currentRow = 2 To lastRow
        ' 先判断当前行B列是否为Mary，且D列是数值
        If ws.Cells(currentRow, "B").Value = "Mary" And IsNumeric(ws.Cells(currentRow, "D").Value) Then
            ' 用微小误差值避免浮点精度问题，比如允许0.01%的误差
            If Abs(maryTotal - 1) > 0.0001 Then
                ws.Cells(currentRow, "D").Interior.ColorIndex = 3 ' 3对应红色，可自行修改颜色索引
            Else
                ws.Cells(currentRow, "D").Interior.ColorIndex = xlColorIndexNone ' 符合条件则清除颜色
            End If
        End If
    Next currentRow
End Sub

额外推荐：用条件格式实现（无需VBA） #

如果你不想写代码，用条件格式更省心，还能自动同步数据更新：

1. 先筛选B列的Mary，选中对应行的D列单元格
2. 点击「开始」→「条件格式」→「新建规则」→「使用公式确定要设置格式的单元格」
3. 输入公式：=SUMIF($B:$B,$B2,$D:$D)<>1
4. 设置你想要的填充颜色，确认即可

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