Найти данные на одном листе и вставить на другом.

[neo2121]

Доброго времени суток!

Помогите решить задачу. Обрезку данных победил, а вот с поиском и копированием с листа на лист разобраться не могу.

Есть два листа "Лист1" и "БД".
Циклом нужно пройтись по всем строкам "Лист1" по столбцу А, сравнить с столбцом А листа "БД", если найдено соответствие, скопировать столбец B и C с листа "БД" в "Лист1" на эту же строчку в другие столбцы, если соответствия не нашлось, оставить пустым.

Пример с данными прикрепляю.

Спасибо!

[Дмитрий Щербаков(The_Prist)]

Здесь ВПР вполне справится: Как найти значение в другой таблице или сила ВПР

[neo2121]

Или вот так:

Код: (vb)

Sub neo2121()
Dim L As Range, B As Range, F As Range, R As Long
Set L = Worksheets("Лист1").Columns("A").Cells
Set B = Worksheets("БД").Columns("A").Cells
For R = 1 To L(L.Count).End(xlUp).Row
  Set F = B.Find(L(R), , , xlWhole)
  If Not F Is Nothing Then
    L(R, "C") = F.Offset(, 1)
    L(R, "D") = F.Offset(, 2)
  End If
Next R
End Sub

Спасибо за ответ!