如何逐行应用条件格式公式？1080行工作表VBA实现需求

以下代码可帮你给第3行到1080行逐行设置条件格式，自动检查每行价格涨幅并高亮符合条件的行：

Sub ApplyRowWiseConditionalFormatting()
    Dim ws As Worksheet
    Dim targetRange As Range
    Dim row As Range
    
    ' 指定目标工作表，可修改为具体表名，比如Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set ws = ThisWorkbook.ActiveSheet
    ' 定义处理范围：第3行到1080行
    Set targetRange = ws.Range("3:1080")
    
    ' 清除目标区域已有条件格式（可选，避免重复规则）
    targetRange.FormatConditions.Delete
    
    ' 遍历每行添加条件格式
    For Each row In targetRange.Rows
        ' 条件公式：示例为同一行D列价格 > C列价格时触发高亮
        ' 根据你的实际价格列位置修改列字母，比如改成$F" & row.Row & ">$E" & row.Row
        row.FormatConditions.Add Type:=xlExpression, Formula1:="=$D" & row.Row & ">$C" & row.Row
        ' 设置高亮样式：黄色填充，可修改RGB值调整颜色
        row.FormatConditions(row.FormatConditions.Count).Interior.Color = RGB(255, 255, 0)
    Next row
End Sub

使用步骤： #

• 打开Excel文件，按Alt + F11打开VBA编辑器
• 右键左侧工作簿名称，选择「插入」→「模块」
• 粘贴代码到模块窗口，修改公式中的列字母匹配你的价格列
• 按F5运行宏，或回到Excel通过「开发工具」→「宏」选择运行

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