A列のデータに合わせてB:Gにあるデータを並べる。

質問

写真の黄色部分のデータを緑の部分の様に変更するためにはどんなVBAを書けばよいか全くアイデアが浮かびません。なにか良いアイデアがあればよろしくお願いします。写真が一枚しかアップできなかったので便宜的に２つのデータを並べましたが黄色から緑に変更です。行、列番号も便宜的に手入力ですが普通の行列番号との前提で、

回答No.2

watabe007

参考に
Sub Test()
　　Dim i As Long, j As Long
　　Dim V(1 To 12, 1 To 5), myR As Variant
　　For i = 2 To Cells(Rows.Count, "B").End(xlUp).Row
　　　　myR = Application.Match(Cells(i, "B").Value, Columns(1), 0)
　　　　If Not IsError(myR) Then
　　　　　　For j = 1 To 5
　　　　　　　　V(myR - 1, j) = Cells(i, j + 1).Value
　　　　　　Next
　　　　Else
　　　　　　MsgBox Cells(i, "B").Value & " がＡ列に登録されていません。"
　　　　　　Exit Sub
　　　　End If
　　Next
　　Range("B2:F13").Value = V
End Sub