VBA find函數查找並且替換方法

在sheet2 A列的值全匹配 sheet1 A列的值，如果全匹配成功則 sheet2 A列的值變為 sheet1 B列對應的值

Private Sub change_name_Click()

For n = 2 To 1776  
'n==需要循環的次數，即sheet2 的行數
With Sheet1.Range("A:A")
    Set TG = .Find(Sheet2.Cells(n, 1), LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
    If Not TG Is Nothing Then
        Sheet2.Cells(n, 1) = Sheet1.Cells(TG.Row, 2).Value
    End If
End With
Next

End Sub