Excel VBA宏运行报Error 424错误，需解决并实现行高亮功能

错误原因 #

1. 笔误触发对象未定义错误：代码中wsl.Cells(...)是拼写错误，正确应为ws1——wsl未被声明或赋值为对象，这是Error 424的直接诱因。
2. 颜色设置逻辑错误：你试图修改单元格Value为vbYellow，这是错误操作，vbYellow是颜色常量，应修改单元格背景色而非单元格值。

修正后的代码 #

Sub CompareValues()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim startRow As Long, ws1EndRow As Long, ws2EndRow As Long
    Dim i As Long
    
    ' 明确声明对象，避免隐式变量问题
    Set ws1 = Application.Workbooks("Book1.xlsx").Sheets("Sheet1")
    Set ws2 = Application.Workbooks("Book2.xls").Sheets("Sheet2")
    
    startRow = 3
    ws1EndRow = ws1.UsedRange.Rows(ws1.UsedRange.Rows.Count).Row
    ws2EndRow = ws2.UsedRange.Rows(ws2.UsedRange.Rows.Count).Row
    
    ' 遍历Sheet1第3行开始的Q列，对应Sheet2第4行开始的F列
    For i = startRow To ws1EndRow
        ' 判断Sheet2对应行是否存在，避免越界错误
        If i + 1 > ws2EndRow Then
            ws1.Rows(i).Interior.Color = vbYellow
            Exit For
        End If
        
        ' 值不相等时高亮Sheet1对应整行
        If ws1.Cells(i, "Q").Value <> ws2.Cells(i + 1, "F").Value Then
            ws1.Rows(i).Interior.Color = vbYellow
        End If
    Next i
End Sub

关键优化点 #

• 显式变量声明：添加Dim语句声明所有变量，避免隐式变量带来的潜在问题。
• 整行高亮实现：使用ws1.Rows(i).Interior.Color = vbYellow直接高亮对应整行背景色，满足需求。
• 边界防越界：增加If i + 1 > ws2EndRow判断，防止Sheet2行数不足时触发错误。
• 简化列引用：直接用"Q"和"F"作为列参数，代码更直观易读。

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