поиск и замена

[gabbachild]

2 листа с данными - нужен макрос
значение из 2 листа должно быть искать такое же значение в 1 листе и заменять на значение в соседней колонке на 2 листе.

вот

[Xpoft]

еще раз тоже самое, только по русски, поточнее и с примерами

[gabbachild]

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

[Xpoft]

Sub macros()
i = 2
Do While Worksheets("Лист2").Cells(i, 1) <> ""
    j = 2
    Do While Worksheets("Лист1").Cells(j, 1) <> ""
        If Worksheets("Лист1").Cells(j, 1) = Worksheets("Лист2").Cells(i, 1) Then
            Worksheets("Лист1").Cells(j, 1) = Worksheets("Лист2").Cells(i, 2)
        End If
        j = j + 1
    Loop
    i = i + 1
Loop
End Sub

[gabbachild]

спасибо большое, переделала как мне надо )) и о чудо - получило то что нужно ))