質問: Cells(5, 5 + i).Value Next j Next i End Sub
回答: 1例です。 Sub 反映テスト() Dim i As Long, j As Long j = 5 For i = 1 To 9 Step 3 Range(Cells(i, "A"), Cells(i + 2, "A")) = Cells(j, "E") j = j + 1 Next i End Sub