Question

我发现了这个，但它不起作用。不确定我做错了什么。

在工作表1中，我想搜索并替换某些术语。

如白色WH，粉红色PK，双色TT，黄色YE等。

我在表3中有一个列表，其中包含在一列中找到的内容以及在下一列的同一行中要替换的内容。

现在我想使用这些值并通过宏运行它并在表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")范围

Excel宏以使用不同工作表中指定的值搜索和替换单元格值

1 个答案: