
Sub a()
Dim c As Range
LR = Sheets(1).UsedRange.Rows.Count
For r = 3 To LR
ID = Sheets(1).Cells(r, "B")
Set c = Sheets(2).UsedRange.Columns(1).Find(what:=ID, LookAt:=xlWhole)
If Not c Is Nothing Then
c.Resize(1, 5).Offset(0, 1).Copy Sheets(1).Cells(r, "F")
End If
Next
End Sub |
