VBA 循環剪切/粘貼/跳過

Question

VBA 和宏非常新。 希望構建一個宏，將剪切 G2:H2 中的項目，將它們粘貼到 I2:J2，跳到下一個偶數行，剪切這些項目 (G4:H4)，將它們粘貼到 I4:J4 中，依此類推直到電子表格結束。 電子表格大約有 11200 行要排序。 任何幫助是極大的贊賞！

Sub TotalMove()
'
' TotalMove Macro

a = 2
g = Sheet17.Cells(Rows.Count, "A").End(xlUp).Row

For a = 2 To g Step 2

    Range("G2:H2").Select
    Selection.Cut
    Range("I2:J2").Select
    ActiveSheet.Paste
  
Next a

End Sub

Answer 1

你幾乎擁有它，只是在循環中使用你的行號的一個例子。

我使變量名稱在演示中顯而易見，設置值而不是復制粘貼，並在范圍內指定工作表。

Sub TotalMove()

With Sheet17
    StartRow = 2
    EndRow = .Cells(Rows.Count, "G").End(xlUp).Row
    
    For CurrentRow = StartRow To EndRow Step 2
        .Range("I" & CurrentRow & ":J" & CurrentRow) = .Range("G" & CurrentRow & ":H" & CurrentRow).Value
        .Range("G" & CurrentRow & ":H" & CurrentRow).Clear
    Next CurrentRow
End With

End Sub