在循环内为Vlookup创建If语句

Sub VlookupWithIf()
    Dim i As Integer
    Dim lookupValue As Variant
    Dim result As Variant
    
    ' 循环处理每一行数据
    For i = 2 To 10
        ' 获取当前行的查找值
        lookupValue = Cells(i, 1).Value
        
        ' 使用If语句判断条件
        If lookupValue <> "" Then
            ' 调用Vlookup函数进行查找
            result = Application.VLookup(lookupValue, Range("A2:B10"), 2, False)
            
            ' 处理Vlookup的结果
            If Not IsError(result) Then
                ' 如果查找成功，将结果写入当前行的第3列
                Cells(i, 3).Value = result
            Else
                ' 如果查找失败，将错误信息写入当前行的第3列
                Cells(i, 3).Value = "Not Found"
            End If
        End If
    Next i
End Sub