間違えた、こうか

Sub () foo
　　Set 元シート = Worksheets("練習15")
　　Set 転記先シート = Worksheets("練習15_回答")
　　転記先シート.Range("A1:B2").ClearContents

　　For i = 2 To 元シート.Cells(元シート.Rows.Count, 1).End(xlUp).Row
　　　　列 = 2
　　　　Do Until 転記先シート.Cells(1, 列) = 元シート.Cells(i, 1)
　　　　　　列 = 列 + 1
　　　　Loop
　　　　行 = 2
　　　　Do Until 転記先シート.Cells(行, 1) = 元シート.Cells(i, 2)
　　　　　　行 = 行 + 1
　　　　Loop
　　　　転記先シート.Cells(行, 列) = 転記先シート.Cells(行, 列) + 元シート.Cells(i, 3)
　　Next
End Sub

>742
慣れてない感じは凄い伝わる
コードは後で見直してすぐに内容が分かるように書いたほうが良い。コメントを入れまくるんだ