Помогите - объединение файлов

[Gurza]

Подскажите пожалуйста, как можно объеденить 2 Экселевскиз файла?

суть вопроса вот в чем:

есть два файла. в каждом по две колонки. в обоих файлах первые 2 колонки с одинаковыми данными (только в первом файле данных по этой колонке больше, потому-что это полный список товарных позиций, а во втором только необходимые товарные позиции).
другие две колонки, это: в первом файле - цена по каждой позиции; во втором файле - имеющиеся коичество на складе.

Вопрос:

Необходимо объеденить эти два файла, чтобы во втором фалй появилась третья колонка с ценами из первого файла!!!

А то выискивать в ручную в первом файле необходимую позицию, а затем перетаскивать цену во второй файл - как-то "утомительно".

[SAS888]

Приложите файлы (фрагменты файлов) с данными - получите ответ.

[Gurza]

Оригиналы файлв прикрипит не могу - т.к. это коммерческая информация. Прикрепляю "примерные" файлы".

В оригинальных файлах наименований болше 2000 тысяч!!!

Желательно узнать как ето можно делать в дальнейшем самому!

[SAS888]

Посмотрите вложение. Откройте оба файла и запустите макрос "Main".

[Gurza]

Что-то у меня ничего не получается. Ексель начинает открывать файлы и вдруг выскакивает какая-то ошибка с предложением отправки отчета об ошибке. После чего он эти файлы восстанавливает но "мэин" макрос не запускается

[Gurza]

пишет что потерян пакет Visual Basic

[SAS888]

Вставьте в программный модуль файла "Файл2" код:

Sub Main()
    Dim i As Long, j As Long, a(), b()
    Application.ScreenUpdating = False: ThisWorkbook.Sheets(1).Activate
    a = Range([A2], Cells(Cells(Rows.Count, "A").End(xlUp).Row, "C")).Value
    With Workbooks("Файл1").Sheets(1)
        b = .Range(.[A2], .Cells(.Cells(Rows.Count, "A").End(xlUp).Row, "B")).Value
    End With
    For i = 1 To UBound(a, 1)
        If a(i, 1) <> "" Then
            For j = 1 To UBound(b, 1)
                If a(i, 1) = b(j, 1) Then
                    a(i, 3) = b(j, 2): Exit For
                End If
            Next
        End If
    Next
    Range([A2], Cells(UBound(a, 1) + 1, "C")).Value = a
End Sub

[Gurza]

Спасибо огромное, но для меня, как для чайника - ето оооооочень трудно.
Может есть какой-нить более легкий способ?

А то у меня еще стоит поддержка японского и некоторые символы закорючками идут.

[SAS888]

В ячейку "C2" в файле "Файл2" введите формулу:

=ВПР(A2;[Файл1.xls]Лист1!$A$2:$B$28;2)

и "растяните" ее вниз до нужного значения. Естественно, в формуле задайте требуемый диапазон искомых значений.
P.S. англ аналог функции ВПР - VLOOKUP

[Gurza]

Еще раз спасибо!!!
В "примерочном" файле все сработало. Но я решил создать два других "примерочных" фала и там ничего не вышло!

Суть я уловил, но некоторые нюансы не получаются

Все!!! Со всем разобрался!!!
ОГРОМНЕЙШЕЕ СПАСИБО!!!

Единственный вопрос - что означают следующие символы и на что они влияют:

1) в начале скобок - А2

2) в конце скобок - 2