根据列表在excel中搜索和替换

Question

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

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

我使用 Ms 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