マクロでデータを切り取り行毎に張り付けるには

エクセルのＡ列の１～100までデータが入っていると仮定します。
それをマクロにてＡ列の1～20はそのままで、Ａ列の21～40はＢ列の1へ移動、Ａ列の41～60はC列の1へ移動…以下同じく繰り返し。

一枚の用紙に印刷しやすいようにしたいのですがお詳しい方、ご教示ください。
よろしくお願いします。

No.1 ベストアンサー 回答者： tom04 回答日時： 2016/04/22 08:59

こんにちは！

一例です。

Sub Sample1()
Dim i As Long
For i = 21 To Cells(Rows.Count, "A").End(xlUp).Row Step 20
Cells(i, "A").Resize(20).Cut Cells(1, Columns.Count).End(xlToLeft).Offset(, 1)
Next i
End Sub

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

この回答へのお礼

お忙しい中、ご回答いただきありがとうございました。
バッチリ上手くできました。
感謝いたします(^o^)

お礼日時：2016/04/22 21:15