在第n列上移动每个第n个单元格

Question

我正在尝试使用VBA编写一个脚本来将信息从单元格B2移动到单元格A1，而我无法明确地输入信息来弄清楚如何操作。这是不切实际的，因为我有1200个单元要处理，这将是600项移动。我按项目执行此操作的代码如下：

Range("B2").Select
Application.CutCopyMode = False
Selection.Cut Destination:=Range("A2")
Range("B4").Select
Selection.Cut Destination:=Range("A4")
Range("B6").Select
Selection.Cut Destination:=Range("A6")
Range("A6").Select

有关使用for循环或其他方法的任何建议吗？谢谢。

Answer 1

如果同一行你可以试试这个：

For i = 2 To lastrow Step 2 '~~> supply last row here
    Range("B" & i).Cut Range("A" & i)
Next

这会将B2切换到A2，直到您感兴趣的最后一行。