Excel vlookup使用vba进行查找

我想在vba中使用for循环和vlookup，将一个名称列表与第二个名称列表进行比较。换句话说，如果一个名字在我的列表和第二个列表中，我想把这个条目标记为“交易对手”，所有其他名字都标记为“客户”

一旦我列表中的某个名称不在第二个列表中，代码就会产生一个错误“运行时错误13”，我希望将该名称归类为客户机

Sub final_row1()
Dim i As Integer
    For i = 2 To 10
        If Cells(i, 2).Value = Application.VLookup(Cells(i, 2), Range("f2:g8"), 1, False) Then
          Cells(i, 3).Value = "counterparty"
        Else
          Cells(i, 3).Value = "client"
        End If
    Next i
End Sub

---

尝试下面的代码，我正在使用

Application.VLookup

来捕获错误

Sub final_row1()

    Dim i As Integer

    For i = 2 To 10    
        ' a match found between both lists    
        If Not IsError(Application.VLookup(Cells(i, 2), Range("F2:G8"), 1, False)) Then
            Cells(i, 3).Value = "counterparty"
        Else
            Cells(i, 3).Value = "client"
        End If
    Next i

End Sub

---

尝试下面的代码，我正在使用

Application.VLookup

来捕获错误

Sub final_row1()

    Dim i As Integer

    For i = 2 To 10    
        ' a match found between both lists    
        If Not IsError(Application.VLookup(Cells(i, 2), Range("F2:G8"), 1, False)) Then
            Cells(i, 3).Value = "counterparty"
        Else
            Cells(i, 3).Value = "client"
        End If
    Next i

End Sub