剪切，粘贴，删除和移位

Question

我在Excel中有一列包含数据： 让我们说：A1，A2，A3，A4，A5，A6 ...... A100 我想制作一个可以剪切，粘贴和删除shift的宏，如下所示： A1停留 A2 - ＆gt; B1 A3 - ＆gt; C1。 删除A2，A3并移位。 当我们转移： A2然后停留 A3 - ＆gt; B1 A4 - ＆gt; C1 删除A3，A4和移位等。

有人可以提供帮助 比你

Answer 1

我建议使用for循环创建一个宏。

例如：

For i = 1 To 100
    Cells(1, i).Value = Cells(i, 1)
    Cells(1, i).Value = ""
Next i