Excel VBA批量设置条件格式报错：Compile error: variable not defined

问题分析 #

你的代码触发Compile error: variable not defined错误，核心问题有三个：

1. 未遍历工作簿内的每个工作表，当前代码仅针对工作簿对象操作，未定位到具体工作表
2. 条件格式设置语法错误：第二个.FormatConditions.Add写法错误，应修改已添加规则的格式，而非重复添加规则
3. lrow变量未实际使用，且获取最后一行的写法逻辑错误

修正后的代码 #

Option Explicit

Sub EasyColors()
    Dim ws As Worksheet
    Dim rng As Range
    
    ' 遍历工作簿中所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 指定每个工作表的目标区域
        Set rng = ws.Range("C7:AG41")
        
        ' 清除已有条件格式（可选，避免重复添加规则）
        rng.FormatConditions.Delete
        
        ' 添加条件格式规则并设置格式
        With rng.FormatConditions.Add(Type:=xlCellValue, Operator:=xlEquals, Formula1:="D")
            .Interior.Color = RGB(180, 198, 231)
        End With
    Next ws
End Sub

代码说明 #

• 用For Each ws In ThisWorkbook.Worksheets遍历所有工作表，确保全工作簿生效
• 先清除目标区域的已有条件格式，避免规则冗余导致格式混乱
• 正确嵌套格式设置：在添加规则后直接通过With块配置填充颜色，修正了原代码的语法错误
• 移除无用的lrow变量，简化代码逻辑

使用步骤 #

1. 按Alt + F11打开VBA编辑器
2. 插入新模块，粘贴上述代码
3. 运行EasyColors宏，所有工作表的C7:AG41区域会自动设置条件格式：输入字符D时，单元格填充指定颜色

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