Excel2013 マクロ教えてください

マクロのコードを教えてください。
出来ればコードの解説もお願いします。

シート１のA6からL列まで表1があり6行目は項目です。
A7・A8・A9の値をシート2の表2からO列から検索をする。

表2に表1の値があれば表2のOからZ列のその行をコピーして
表1の下へ貼り付ける。

最終的に一番下のようにしたいです。

No.1 ベストアンサー 回答者： tom04 回答日時： 2017/01/19 21:45

こんばんは！

↓の画像のような配置だとします。
標準モジュールにしてください。

Sub Sample1()
Dim i As Long, c As Range, wS As Worksheet
Set wS = Worksheets("Sheet2")
With Worksheets("Sheet1")
'A列7行目～A列最終行まで//
For i = 7 To .Cells(Rows.Count, "A").End(xlUp).Row
'Sheet2の「O」列にSheet1、A列 i 行のデータを見つける//
Set c = wS.Range("O:O").Find(what:=.Cells(i, "A"), LookIn:=xlValues, lookat:=xlWhole)
'データがあれば、Sheet1のA列最終行の1行下へ値の貼り付け//
If Not c Is Nothing Then
wS.Cells(c.Row, "O").Resize(, 12).Copy
.Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
End If
Next i
Application.CutCopyMode = False
.Activate
.Cells(Rows.Count, "A").End(xlUp).Select
End With
End Sub

こんな感じでよいのでしょうか？

※　一度だけマクロを実行してください。
続けて実行すると重複されてデータが表示されてしまいます。m(_ _)m