在第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多达您所感兴趣的最后一排。