宏 - 每隔一行復制並粘貼單元格

Question

我有多行數據，其中我試圖創建另一行，並將列F逐行放入新的D列。我有創建新的行宏設置，但我怎麼能有一個循環，將複製一個單元格從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 

（這是假設你只是想要的值如果你需要一個公式，那麼它需要輕微的調整，以便讓我知道。） 。