使用循环复制并粘贴到新行

我有以下数据：

456436 4568 1235 152456 1564 25686 1258 1456 456436 46568 12785 12456 1564 9466 1258 1596 456436 4568 4235 1456 1564 25686 1258 1456 

我需要把每一行的最后四个数据单元移到前四个数据的下面。

我写了一个循环，但是我是VBA的新手，所以我不知道如何倒数，所以只会产生一个无限循环。 昏暗我只要

 For i = 1 To Worksheets("Sheet1").Range("T2").Value Range("T2:AE2").Copy Destination:=Range("G3") Next i 

我哪里错了？

Answer 1

试试这个：

 Sub S0() For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row * 2 Step 2 Rows(i + 1).EntireRow.Insert xlDown Cells(i, 5).Resize(, 4).Cut Cells(i + 1, 1) Next i End Sub