Excel VBA：Mac正常的条件格式+VLookup代码在Windows报424错误求助

问题分析 #

你的代码在Mac Excel可正常运行，但Windows Excel报错424，核心原因是当VLookup未找到匹配值时，会返回错误对象而非普通值，直接将其赋值给条件格式的Formula1会触发对象必需错误——Windows Excel对这类错误值的处理比Mac更严格，不会自动忽略错误状态。

修复后的代码 #

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim matchValue As Variant
    
    ' 仅处理单个单元格选中的情况
    If Target.Cells.Count <> 1 Then Exit Sub
    
    With Me.Range("A1:I20")
        ' 清除原有条件格式
        .FormatConditions.Delete
        
        ' 跳过空单元格
        If Target.Value <> "" Then
            ' 执行VLookup并捕获结果
            matchValue = Application.VLookup(Target.Value, Worksheets("Sheet2").Range("A:B"), 2, False)
            
            ' 仅当找到匹配值时添加条件格式
            If Not IsError(matchValue) Then
                .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:=matchValue
                .FormatConditions(1).Interior.ColorIndex = 28
            End If
        End If
    End With
End Sub

关键修改点 #

• 新增错误捕获：用IsError判断VLookup的返回结果，避免将错误对象传入条件格式参数
• 变量存储结果：将VLookup结果存入Variant类型变量，统一处理正常值和错误值
• 逻辑严谨性：仅在找到有效匹配值时才添加条件格式，避免无效操作触发错误

额外优化建议 #

如果希望在未找到匹配时清除高亮（保持原有状态），当前代码已经通过.FormatConditions.Delete实现，无需额外修改。若需要更高效的格式切换，可以考虑保留条件格式规则，仅修改规则的Formula1值，减少重复删除/添加操作。

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