将每第 n 个单元格移动到第 n 列答案

【问题标题】：Moving every nth cell over nth columns将每第 n 个单元格移动到第 n 列
【发布时间】：2014-06-05 04:52:55
【问题描述】：

我正在尝试使用 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 循环或其他方法有什么建议吗？谢谢。

【问题讨论】：

在您的问题中，您想将信息从 B2 写入 A1，但在您的脚本中是 B2 到 A2。哪个是哪个？
很抱歉。我的意思是 B2 到 A2。

标签： excel vba for-loop

【解决方案1】：

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

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

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

【讨论】：

谢谢，这很好用。不知道为什么我无法弄清楚如何做到这一点，可能是一天编码太多。