Help! Перебрать и сравнить ячейки двух столбцов

[ddv1]

Гуру, помогите, пожалуйста
Мне надо чтобы ячейки проверялись на равенство значений и, если они равны, то только тогда переносится значение из третьей ячейки второй книги в первую.
Помогите, пожалуйста, очень надо сравнить большой массив, а я в VBA никогда не программировал.
Смотрел хелп, но там ничего нет:((  

Код:

Public Sub Compare()
    Dim i As Integer
    Dim j As Integer
    Dim wb As Excel.Workbook
    
     Set wb = Excel.Workbooks("Книга1.xls")        'получаем экземпляр книги с которой нужно сравнивать

    'проверить 100 строк
    For i = 1 To 100
            If ThisWorkbook.Worksheets("Лист1").Cells(i, 2) <> wb.Worksheets("Лист1").Cells(j, 1) Then
                ' в столбец С пишем значение из столбца В книги 1
                j = j + 1
                Else
                ThisWorkbook.Worksheets("Лист1").Cells(i, 5) = wb.Worksheets("Лист1").Cells(i, 2)
            End If
    Next i
End Sub

[ddv1]

Извините что плохо изложил:(

Книга111 ячейка графы B ищет соответствующую в Книге1 по графе А и если находит,
то пишет в графу Е Книга111 числовой код из графыB Книги1.
Помогите пожалуйста. Очень нужно а я не программист

[HandKot]

1. Значения надо сравнивать по строкам? (в одной и в другой ниге сравнивать ячейки одной строки)
2. Использовать формулу ВПР не пробовали? (знание VBA в этом случае не надо)

выложите пример данных, для лучшего понимания проблемы

[ddv1]

Большое спасибо. Проблема решена:)

[anton13]

HandKot

Но я бы чисто по привычке сделал это через VBA. А сделать можно просто цикл в цикле.