'直接シートをいじるのでコピーをしてから試してみてください。 Sub Macro1() COUNTER = 0 For INP = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 5 COUNTER = COUNTER + 1 Range("A" & INP & ":A" & INP + 4).Copy Range("B" & COUNTER).PasteSpecial Paste:=xlPasteValues, Transpose:=True Application.CutCopyMode = False Next INP Range("A1").EntireColumn.Delete End Sub
![エクセルで1列に500行並んだデータを5列毎に改行](https://cdn-ak-scissors.b.st-hatena.com/image/square/441967179c8a4709136b3c66f7f2a45c0a46cd66/height=288;version=1;width=512/https%3A%2F%2Foshiete.xgoo.jp%2Fimages%2Fsp%2Fqa_recommend%2F2099_1.jpg)