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