将单元格一个接一个地复制到另一个工作表

Question

我一直试图找到解决方案一段时间，我不相信我正在寻找合适的东西。

基本上我想要做的是复制一个单元格内容并将其粘贴到另一个工作表，然后删除从中复制的单元格的内容。

我有一个与每个单元格对应的按钮，我想编写一些代码，只需点击一下按钮即可完成此操作。

另一个问题是我不知道代码不会一遍又一遍地粘贴在同一个单元格中，而是转到下一行并粘贴到那里。

目前我所拥有的是：

Sub Macro1()


Range("I2").Select
Selection.Copy
Sheets("Completed Tasks").Select
Range("A72").Select
ActiveSheet.Paste
Sheets("Projects Live!").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("H2").Select

End Sub

这仅指顶部单元格，我已经录制了一个宏来显示我想要的内容。

希望你能帮助或指出我正确的方向。

Answer 1

考虑：

Sub luxation()
    Range("I2").Copy Sheets("Completed Tasks").Range("A72")
    Range("I2").Clear
End Sub

这是针对单个单元格的...............你会在循环中嵌入这种语法。