シート１とシート２があり、
シート2にデータとなる情報が入っている状況（A列にユニークキー）で、
シート１のA2から下に入力されているユニークキーで、シート２にある２列目の情報を
シート１に表示させる

----- べんりあつめ。-----

Sub Test7()
Dim i As Long '現在の回数
Dim iKe As Variant '検索結果値
Dim maxRow As Long '最終行（最大回数）
maxRow = Cells(Rows.Count, 1).End(xlUp).Row '最終行の取得
ReDim iKe(maxRow - 2, 0) '配列（検索結果値の格納用）
'対象になる表の範囲を指定しておく（A1:AY56）のところ
For i = 2 To maxRow
iKe(i - 2, 0) = WorksheetFunction.VLookup(Cells(i, 1), Worksheets(2).Range("A1:AY56"), 2, False)
Next i
'どの行まで貼り付けるかの基準になる列の最初と最後のセルを指定して、オフセットでどこに貼り付けるかを指定
Range(Range("A2"), Cells(Rows.Count, 1).End(xlUp)).Offset(0, 1) = iKe
End Sub