Excel中如何基于F列背景色自动批量修改I列单元格值？

问题核心 #

你用条件格式设置的F列背景色，原代码里的cell.Interior.Color只能读取单元格本身的填充色，读不到条件格式应用后的显示色，所以代码无法触发赋值逻辑。

修正后的VBA代码 #

Sub ModifyValuesBasedOnConditionalFormatColor()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim cell As Range
    
    ' 直接指定工作表，替换成你实际的表名（比如"销售数据"）
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 获取F列最后一行数据的行号
    lastRow = ws.Cells(ws.Rows.Count, "F").End(xlUp).Row
    
    ' 遍历F列从第2行开始的所有单元格
    For Each cell In ws.Range("F2:F" & lastRow)
        ' 读取条件格式生效后的显示背景色
        Select Case cell.DisplayFormat.Interior.Color
            Case RGB(255, 199, 206) ' 目标红色
                ws.Cells(cell.Row, "I").Value = 0
            Case RGB(198, 239, 206) ' 目标绿色
                ws.Cells(cell.Row, "I").Value = 5000
        End Select
    Next cell
End Sub

使用要点 #

• 必须把代码里的"Sheet1"改成你实际使用的工作表名称，比用ActiveSheet更稳定，避免切换工作表时出错。
• DisplayFormat属性专门用于读取单元格当前显示的格式（包括条件格式），能准确匹配你设置的RGB颜色。
• 如果表格行数超过10万，建议用下面的提速版代码，关闭屏幕刷新和事件能大幅减少运行时间。

大表格提速版代码 #

Sub ModifyValuesBasedOnConditionalFormatColor_Fast()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim cell As Range
    Dim rng As Range
    
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "F").End(xlUp).Row
    Set rng = ws.Range("F2:F" & lastRow)
    
    ' 关闭屏幕刷新和事件，提升运行速度
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    For Each cell In rng
        Select Case cell.DisplayFormat.Interior.Color
            Case RGB(255, 199, 206)
                ws.Cells(cell.Row, "I").Value = 0
            Case RGB(198, 239, 206)
                ws.Cells(cell.Row, "I").Value = 5000
        End Select
    Next cell
    
    ' 恢复系统设置
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

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