Поиск совпадений и дописать если истина

[олег_к]

есть две таблицы(1 - файл лист1.xls 2- файл лист2.xls) в екзель надо сравнить значения по столбцу А и если оно одинаково с значением А во втором файле то надо скопировать значения из лист2.xls столбца D в лист1.xls столбец Е

[Maniac Rabbit]

Если нужно решить без VBA, то через функцию ВПР это делается
Например пишете в столбце E: ВПР("A:A";"Лист2!A:D";4;0)

[Maniac Rabbit]

Если нужно на VBA, вот пример куска кода с поиском через метод find

For Each RngTable In Вашдиапазон_с_данными
             Set RngAreaTable = тутдиапазон_столбца_A
             Set Find_ME = RngAreaTable.Find(RngTable.Value, _
             , xlValues, LookAt:=xlWhole) '- сам метод поиска
             If Not Find_ME Is Nothing Then
                    Data_insert = Find_ME.Offset(0, "тут_отступ_до_столбца_Е").Value  'переносим данные
                    Count = Count + 1
             Else
                  MsgBox "Давай по новой!"
             End If
    Next RngTable
    MsgBox "Данные перенесены в количестве:" & vbchr & Count & " штук"