毎日増えていくデータのコピー＆ペーストのマクロ

常に最終行から６つ上まで選択しコピーしたのをJ１に貼り付け
A7:F12をコピーしてJ1貼り付け
次に一段上がって同じように
６つ上まで選択しコピーしたのをJ7に貼り付け

A6:F11をコピーしてJ7貼り付け
尚、データは毎日増えていきます。
是ができるマクロを教えていただきたいのですが？

補足
「尚、データは毎日増えていきます。なので、ｊ１貼り付け次に、ｊ７貼り付けです！データが１つ増えたとして、ならば次はｊ１３、次はｊ１９と成って行く。データが１つ増えたとして、最終行６つ上まで選択しコピー31,一段上がって６つ上まで選択しコピー37,データが増えたとして、・・・・・
43,49, 55,61 ,67,73 ,79,85 ,91,97・・・・・

No.1 ベストアンサー 回答者： tom04 回答日時： 2018/02/07 18:06

こんにちは！

J列の後に新たに追加していくのではなく、
A列最終行から6行分をJ1セル以降にコピー＆ペーストすれば良いのですね。
前提条件として、A～F列データ行数は6の倍数分のデータとします。
一例です。

Sub Sample1()
Dim i As Long, cnt As Long
Application.ScreenUpdating = False
Range("J:O").ClearContents
For i = Cells(Rows.Count, "A").End(xlUp).Row - 5 To 1 Step -6
cnt = cnt + 1
Range(Cells(i, "A"), Cells(i + 5, "F")).Copy Cells((cnt - 1) * 6 + 1, "J")
Next i
Application.ScreenUpdating = True
MsgBox "完了"
End Sub

こんな感じではどうでしょうか？m(_ _)m

この回答へのお礼

ありがとうございました。結構ややこしかったのですが何とか解りました。

お礼日時：2018/02/07 23:03