Oscar Sun

                  Sub 造字置換()
Dim i As Long
Dim r As Long
r = Sheets(2).UsedRange.Rows.Count
For i = 2 To r
    Sheets(1).Cells.Replace Sheets(2).Cells(i, 1), Sheets(2).Cells(i, 2)
Next i
End Sub