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

Question

我有以下数据：

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的新手所以我不知道如何倒计时，所以它只会产生无限循环。     Dim i As Long

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