[Aizec]

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

Код:

 i = 1
    While Workbooks(file2).Worksheets("List").Cells(i, 1).Value <> ""
          current = Workbooks(file2).Worksheets("List").Cells(i, 1).Value
          j = 1
          flag = False
          Do While Workbooks(file1).Worksheets("List").Cells(j, 1).Value <> ""
                   If Workbooks(file1).Worksheets("List").Cells(j, 1).Value = current Then
                      flag = True
                      Exit Do
                   End If
                   j = j + 1
           Loop
          If flag = True Then
             Workbooks(file2).Worksheets("List").Cells(i, 2).Value = Workbooks(file1).Worksheets("List").Cells(j, 2).Value
             Workbooks(file2).Worksheets("List").Cells(i, 2).Interior.Color = RGB(0, 255, 0)             
          End If
          i = i + 1          
    Wend