Option Explicit

Sub tt()
Dim i As Long
Dim x As Range

With Worksheets( 1 ).Columns( 1 )
    For i =  1  To .Cells(.Rows.Count).End(xlUp).Row
        Set x = Worksheets( 2 ).Columns( 1 ).Find(.Cells(i), LookIn:=xlValues, lookat:=xlPart)
        If x Is Nothing Then
                .Cells(i).Offset(,  1 ) = "ненайдено"
        Else
                .Cells(i).Offset(,  1 ) = Worksheets( 2 ).Cells(x.Row,  2 ).Value
        End If
    Next i
End With

End Sub