Excel VBA循环条件格式问题：跨Sheet单元格值驱动区域格式化

原代码的核心问题有三个：

• 缺少循环逻辑，仅处理了A2:D2单行
• 滥用Select/Activate操作，效率低且易引发错误
• 条件格式的判断值固定，未读取Sheet B的单元格值作为动态条件

以下是修正后的代码，完全符合你的需求：

Sub FormattingWithLoop()
    Dim wsA As Worksheet, wsB As Worksheet
    Dim lastRow As Long, i As Long
    Dim targetRng As Range
    Dim cond1 As FormatCondition, cond2 As FormatCondition
    Dim gVal As Variant, aVal As Variant
    
    ' 直接绑定工作表对象，避免依赖激活状态
    Set wsA = ThisWorkbook.Sheets("A")
    Set wsB = ThisWorkbook.Sheets("B")
    
    ' 自动获取Sheet B的最后有效行（以A列非空行作为结束标志，可根据实际调整）
    lastRow = wsB.Cells(wsB.Rows.Count, "A").End(xlUp).Row
    
    ' 循环处理每一行：从第2行开始到最后有效行
    For i = 2 To lastRow
        ' 定位Sheet A当前行的A:D区域
        Set targetRng = wsA.Range(wsA.Cells(i, "A"), wsA.Cells(i, "D"))
        
        ' 清除当前区域已有的条件格式
        targetRng.FormatConditions.Delete
        
        ' 读取Sheet B对应行的G列和A列值
        gVal = wsB.Cells(i, "G").Value
        aVal = wsB.Cells(i, "A").Value
        
        ' 设置第一个条件格式：单元格值等于Sheet B的G列值时，字体设为红色
        Set cond1 = targetRng.FormatConditions.Add(xlCellValue, xlEqual, gVal)
        With cond1.Font
            .Color = -16776961
            .TintAndShade = 0
        End With
        
        ' 设置第二个条件格式：单元格值等于Sheet B的A列值时，字体恢复默认
        Set cond2 = targetRng.FormatConditions.Add(xlCellValue, xlEqual, aVal)
        With cond2.Font
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
        End With
    Next i
End Sub

关键改进说明 #

1. 抛弃Select/Activate：直接用wsA、wsB操作工作表，避免因当前激活表变化导致的逻辑错误，同时提升代码运行效率
2. 动态循环范围：通过lastRow自动识别Sheet B的最后数据行，无需手动指定循环次数
3. 动态条件值：每次循环读取Sheet B对应行的G列、A列值，作为条件格式的判断标准，实现"对应条件格式"的需求
4. 修正格式绑定逻辑：直接修改FormatCondition对象的字体属性，原代码错误地修改了选中单元格的格式，而非条件格式本身

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