Excelmacro使用不同的工作表中指定的值来search和replace单元格值

我发现这个，但是不起作用。 不知道我在做什么错。

在工作表1中，我想search并replace某些术语。

如白与WH，粉与PK，双音与TT，黄与黄等。

我在第三张表中列出了在一列中find的内容以及在下一列的同一行中replace的内容。

现在我想使用这些值并通过一个macros来运行它，并将其replace为表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")范围进行search