Question

我想要一个宏来复制某个单元格中的数据，并将其复制到另一个工作表上的单元格中，但我希望它是一个连续的列表。我的意思是，将第一个单元格复制到A2，然后将下一个单元格复制到A3，依此类推。这是我到目前为止提出的代码，它可以复制到单元格A2中，但它会删除以前的数据。

Option Explicit
Sub Copy_Data()
Worksheets("PremakeResults").Range("B1").Copy Worksheets("SavedResults").Range("A2")
End Sub

我觉得这是一个相当简单的宏，但我并没有在互联网上寻找合适的东西。任何帮助将不胜感激！

修改

我刚试过这段代码

Sub Copy_Data()
Worksheets("PremakeResults").Range("B1").Copy Worksheets("SavedResults").Range("A" & Worksheets("SavedResults").Cells(Worksheets("SavedResults").‌Rows.Count, "A").End(Xlup).Row)
End Sub

虽然它将复制到指定的页面，但它仍会在第一个条目上删除。

Answer 1

这个怎么样？这将找到SavedResults工作表列A中的最后一行，然后添加一行以选择下一行，然后将此值设置为与预制结果表中的单元格B1相同

Sub Copy_Data()
Dim LastRow as Variant
LastRow = Worksheets("SavedResults").Cells(Rows.Count, "A").End(xlUp).Row + 1
Worksheets("SavedResults").Range("A" & LastRow).Value = Worksheets("PremakeResults").Range("B1").Value
End Sub

如何复制单元格值并粘贴在上一个单元格下

1 个答案: