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

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的新手，所以我不知道如何倒数，所以它只会产生一个无限循环。昏暗我一样长

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

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

Copy and Paste into new row using a Loop

excel

vba

loops