質問: VBA Resizeで貼り付け(空白の場合) 前回はありがとうございました。 実は聞き忘れたことがありまして。 前回は
回答: それぞれ3行2列のデータと決まっているなら Dim i As Integer For i = 1 To 3 Cells(2, i * 3 + 3).Resize(3, 2).Value = Cells(i * 6 - 5, 2).Resize(3, 2).Value Next i これだけでいいと思います。 前の質問が関連している時は、その質問のURLを載せるようにして下さい。 他IDの質問は見る事が出来ませんので、探すのが大変でした。