VBA实现Hlookup与Vlookup组合结果匹配后设置字体颜色的代码问题排查

让我先拆解你代码里的核心问题，然后给出可正常运行的版本：

核心错误点 #

1. 变量类型声明不规范
   你在声明变量时，比如Dim shSM, shAcNG as Worksheet，只有最后一个变量shAcNG被指定为Worksheet类型，shSM会默认是Variant类型。同理，其他变量比如Hsm, Vsm, lrSM, lcSM也存在这个问题，这可能导致意外的类型错误。

2. 错误引用xSM/xNG的Row/Column属性
   xSM和xNG是VLOOKUP返回的单元格值（比如文本、数字或错误值），不是Range对象，所以你调用xSM.Row或xSM.Column时会直接抛出运行时错误——值类型根本没有这些属性。实际上，你当前遍历的shSM.Cells(Vsm, Hsm)就是需要设置字体颜色的目标单元格（因为Vsm是行号、Hsm是列号，正好对应你要检查的单元格）。

3. 逻辑目标与需求不符
   你的需求是修改对应单元格的字体颜色，但原代码里匹配时修改的是AcNG的单元格，这可能和你的预期不一致。我会按照你描述的需求调整逻辑：

   • 若xNG为错误值：SM对应单元格字体设为红色
   • 若xSM与xNG匹配：SM对应单元格字体设为绿色
   • 若两者不匹配：SM对应单元格字体设为红色

修正后的代码 #

Sub CompareAndColor()
    ' 规范变量声明，每个变量都指定类型
    Dim shSM As Worksheet, shAcNG As Worksheet
    Dim Hsm As Long, Vsm As Long, lrSM As Long, lcSM As Long
    Dim HLvalueSM As Variant, VLvalueSM As Variant
    Dim xSM As Variant, xNG As Variant
    
    Set shSM = ThisWorkbook.Sheets("SM")
    Set shAcNG = ThisWorkbook.Sheets("AcNG")
    
    lrSM = shSM.Cells(Rows.Count, 10).End(xlUp).Row
    lcSM = shSM.Cells(7, shSM.Columns.Count).End(xlToLeft).Column
    
    ' 遍历列和行
    For Hsm = 2 To lcSM
        For Vsm = 3 To 44
            HLvalueSM = shSM.Cells(1, Hsm).Value
            VLvalueSM = shSM.Cells(Vsm, 1).Value
            
            ' 获取SM和AcNG中的对应值
            xSM = Application.VLookup(VLvalueSM, shSM.Range("A3:EK44"), _
                Application.HLookup(HLvalueSM, shSM.Range("A1:EK2"), 2, False), False)
            xNG = Application.VLookup(VLvalueSM, shAcNG.Range("A3:EK44"), _
                Application.HLookup(HLvalueSM, shAcNG.Range("A1:EK2"), 2, False), False)
            
            ' 先获取当前要操作的单元格
            Dim targetCell As Range
            Set targetCell = shSM.Cells(Vsm, Hsm)
            
            ' 修正后的IF判断逻辑
            If IsError(xNG) Then
                ' xNG是错误值，设为红色
                targetCell.Font.Color = vbRed
            ElseIf IsError(xSM) Then
                ' 额外处理xSM为错误的情况（如果SM中找不到值）
                targetCell.Font.Color = vbRed
            ElseIf xSM = xNG Then
                ' 两个值匹配，设为绿色
                targetCell.Font.Color = vbGreen
            Else
                ' 两个值不匹配，设为红色
                targetCell.Font.Color = vbRed
            End If
        Next Vsm
    Next Hsm
End Sub

关键修改说明 #

• 规范变量声明：所有变量都明确指定类型，避免Variant带来的潜在问题。
• 直接引用遍历的单元格：用shSM.Cells(Vsm, Hsm)作为目标单元格，这正是你当前循环检查的单元格，不需要通过xSM/xNG去反向查找。
• 补充xSM错误处理：如果SM中的VLOOKUP/HLOOKUP找不到值，xSM也会是错误值，这里补充了这个分支的处理。
• 简化IF逻辑：把不匹配和错误值的情况合并到最后Else分支（如果需求允许），让逻辑更清晰。

如果你实际需求是修改AcNG中的对应单元格，只需要把Set targetCell = shSM.Cells(Vsm, Hsm)改成Set targetCell = shAcNG.Cells(Vsm, Hsm)即可。

内容的提问来源于stack exchange，提问作者Radosław Sokolowski