macros – 每隔一行复制和粘贴单元格

我有多行数据，我试图做另一行，并将列F逐行进入新的D列。 我有创build新的行macros设置，但我怎么能有一个循环，将从F复制到D行中的新行？

基本上像：

Range("F3").Select Selection.Cut Range("D4").Select ActiveSheet.Paste 

对于其他行。

所以就像下一个将“F5”放入“D6”一样，然后继续直到表单的结尾。

Answer 1

您可以使用For循环， Step 2跳过两个单元格：

 Sub copyMove() Dim lastRow As Long, i As Long Application.ScreenUpdating = False lastRow = Cells(Rows.Count, 6).End(xlUp).Row For i = 3 To lastRow Step 2 Cells(i + 1, 4).Value = Cells(i, 6).Value Cells(i, 6).Value = "" Next i Application.ScreenUpdating = True End Sub 

（这假设你只是想要的值，如果你需要一个公式，那么它需要稍微调整，所以让我知道）。