如何在VBA中不引用单元格快速按值设置行/单元格颜色？

方法1：用Excel内置条件格式（无需VBA，性能最优） #

直接用Excel原生功能就能完成，比VBA循环快得多：

• 选中需要设置格式的目标区域（比如整行数据，或Amount1、Amount2所在的单元格列）
• 点击「开始」选项卡 → 「条件格式」→ 「新建规则」
• 选择「使用公式确定要设置格式的单元格」，输入公式：
  • 若要标记整行：=$A2>$B2（假设Amount1在A列，Amount2在B列，根据实际列调整）
  • 若仅标记Amount1单元格：=A2>B2
• 点击「格式」→ 「填充」，选择红色，确定后再次新建规则，输入反向公式=$A2<$B2（或=A2<B2），设置绿色填充。

方法2：VBA批量处理方案（避免逐个单元格循环） #

如果必须用VBA，不要逐个单元格遍历，用以下三种高效方式：

方案A：VBA调用条件格式 #

直接在VBA中创建条件格式规则，批量应用：

Sub SetConditionalFormatting()
    Dim targetRange As Range
    ' 假设数据在A1:B100，根据实际范围调整
    Set targetRange = ThisWorkbook.Sheets("Sheet1").Range("A1:B100")
    
    ' 清除原有条件格式
    targetRange.FormatConditions.Delete
    
    ' 添加Amount1>Amount2的红色规则
    With targetRange.FormatConditions.Add(Type:=xlExpression, Formula1:="=A1>B1")
        .Interior.Color = vbRed
        ' 若要应用整行，设置AppliesTo为整行范围
        ' .AppliesTo = ThisWorkbook.Sheets("Sheet1").Range("A1:D100") ' 假设整行是A到D列
    End With
    
    ' 添加Amount1<Amount2的绿色规则
    With targetRange.FormatConditions.Add(Type:=xlExpression, Formula1:="=A1<B1")
        .Interior.Color = vbGreen
    End With
End Sub

方案B：数组读取+批量设置格式 #

先把数据读到内存数组中，判断后批量设置单元格格式，减少Excel对象交互：

Sub BatchSetColorByArray()
    Dim ws As Worksheet
    Dim dataArr As Variant
    Dim lastRow As Long
    Dim i As Long
    Dim colorRange As Range
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 获取Amount1列最后一行
    dataArr = ws.Range("A2:B" & lastRow).Value ' 读取数据到数组（跳过表头）
    
    ' 初始化颜色范围
    Set colorRange = ws.Range("A2:B" & lastRow) ' 若要整行，改为"A2:D" & lastRow
    
    ' 遍历数组判断，批量设置格式
    For i = LBound(dataArr, 1) To UBound(dataArr, 1)
        If dataArr(i, 1) > dataArr(i, 2) Then
            colorRange.Rows(i).Interior.Color = vbRed
        ElseIf dataArr(i, 1) < dataArr(i, 2) Then
            colorRange.Rows(i).Interior.Color = vbGreen
        End If
    Next i
End Sub

方案C：AutoFilter批量设置 #

利用筛选功能批量标记，适合大数据量：

Sub SetColorByFilter()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dataRange As Range
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Set dataRange = ws.Range("A1:B" & lastRow)
    
    ' 清除筛选
    ws.AutoFilterMode = False
    
    ' 筛选Amount1>Amount2的行，设置红色
    dataRange.AutoFilter Field:=1, Criteria1:=">" & ws.Range("B1").Value, Operator:=xlAnd
    ws.Range("A2:B" & lastRow).SpecialCells(xlCellTypeVisible).Interior.Color = vbRed
    
    ' 筛选Amount1<Amount2的行，设置绿色
    dataRange.AutoFilter Field:=1, Criteria1:="<" & ws.Range("B1").Value, Operator:=xlAnd
    ws.Range("A2:B" & lastRow).SpecialCells(xlCellTypeVisible).Interior.Color = vbGreen
    
    ' 清除筛选
    ws.AutoFilterMode = False
End Sub

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