エクセル 特定のデータを再入力

Question

エクセルで住所録を作っています。
1行目には氏名が並んでいます。
次の行に住所、その次に電話番号が入力されています。
一度、全て入力が終了しました。
ところが、氏名簿に漏れがあることが判り、一覧が更新されました。
そこで最初に作ったデータ(住所と電話番号)を更新された表に写し替えたいのですが、どうすれば良いでしょうか？

バーション　Excel365

Answer 1

その１：Excel関数でやる

（新シートのB2セルに以下を記述、他のセルにもコピー）

=INDEX(旧シート!B:B,MATCH(新シート!$A2,旧シート!$A:$A,0))

その２：Excelマクロでやる

Sub DataCopyMacroSample()

    Dim moto As Worksheet, saki As Worksheet
    Set moto = Worksheets("旧シート")
    Set saki = Worksheets("新シート")

    Dim dic 'As Scripting.Dictionary
    Set dic = CreateObject("Scripting.Dictionary")

    Dim r As Range, s As String
    For Each r In moto.UsedRange.Rows
        s = r.Resize(, 1).Value
        If Not dic.Exists(s) Then dic.Add s, r
    Next
    
    For Each r In saki.UsedRange.Rows
        s = r.Resize(, 1).Value
        If dic.Exists(s) Then dic(s).Copy r
    Next
    
End Sub