根据列表

Question

我需要根据Sheet2上的表替换Sheet1上的值。

• Sheet1在不同列的工作表中有一长串名称，我需要根据Sheet2上的表格替换为标准化名称。
• 在Sheet2上，A列具有要替换的值，B列具有要替换的值。

我使用Excel 2011 for Mac。是否有一个简单的VBA宏？

Answer 1

Option Explicit

Public Sub searchAndReplaceFromList()

    Dim cel As Range

    With Sheet2

        For Each cel In Sheet2.Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)

            Sheet1.UsedRange.Replace cel.Value2, cel.Offset(0, 1).Value2

        Next

    End With

End Sub