Excelmacro для поиска и замены значений ячеек значениями, указанными на другом листе

Question

Я нашел это, но это не работает. Не уверен, что я делаю не так.

В листе 1 я хочу найти и заменить некоторые термины.

Например, WH с белым, PK с розовым, TT с двухтональным, YE с желтым и т. Д.

У меня есть список на листе три с тем, что найти в одном столбце и что заменить в той же строке в следующем столбце.

Теперь я хочу использовать эти значения, запустить их через макрос и заменить их на листе 1.

Спасибо

Can any one help me correct this code or help test it.

Sub multiFindNReplace()
    Dim myList, myRange
    Set myList = Sheets("sheet3").Range("A8:B10") 'two column range where find/replace pairs are
    Set myRange = Sheets("sheet3").Range("D1:F100") 'range to be searched
    For Each cel In myList.Columns(1).Cells
        myRange.Replace what:=cel.Value, replacement:=cel.Offset(0, 1).Value
    Next cel
End Sub

Answer 1

Я думаю, что второй Sheet3 - просто опечатка:

Set myRange = Sheets("sheet1").Range("D1:F100") диапазон для поиска