VBA Vlookup 不匹配

Question

我在 sheet4 中有要查找的单元格，查找表在 sheet2 Range("A16:B25") 中。当我运行这段代码时，它给了我一个mismatch error。为什么要这样做？

Dim i As Integer
Dim lrow As Long
Dim x As Integer

Sheet4.Activate
lrow = Sheet4.Range("A" & Rows.count).End(xlUp).Row

For i = 2 To lrow

    Cells(i, 1).Activate
    x = Application.VLookup(ActiveCell.Offset(0, 0).Value, Worksheets(2).Range("A16:B25"), 2, False)

    If x <> Cells(i, 2).Value Then
        Cells(i, 2).Interior.Color = RGB(255, 0, 0)
    Else
    End If

Next i

Answer 1

1：除非绝对必要，否则您不需要激活任何东西。使用显式引用（workbook.worksheet.cell 或 .range） 2：您需要检查您的 vlookup 是否返回错误。 3：ActiveCell.Offset(0, 0).Value 只是活动单元，因为您没有偏移量。

尝试将其添加到您的代码中，您可能需要针对您的特定用途进行调整。

sub lookup_color()
Dim i As Integer
Dim lrow As Long
Dim vReturnVal As Variant

lrow = Sheet4.Range("A" & Rows.count).End(xlUp).Row
For i = 2 To lrow
   vReturnVal = Application.VLookup(Sheet4.Cells(i, 1).Value, Worksheets(2).Range("A16:B25"), 2, False)
     If Not IsError(vReturnVal) Then
        If vReturnVa <> Sheet4.Cells(i, 2).Value Then
        Sheet4.Cells(i, 2).Interior.Color = RGB(255, 0, 0)
       End If
    End iF
Next i
End sub