VBA-复制单元格并粘贴到另一张纸上的空白单元格中

Question

我是VBA的新手，请多多包涵。 我想知道是否有人可以帮助我解决我遇到的问题。 有人可以帮我在名为“ Standard_NewSale_GSS”的工作表中复制单元格V10，然后粘贴到“ Standard_Basket”工作表的E列中的下一个可用空单元格中。 如果有人可以帮助，将不胜感激！ 这是我在大学的课程。

Answer 1

如果希望将这些值硬编码到子例程中，则可以执行以下操作：

Option Explicit
Sub CopyIntoStandardBasketColumnE()
    Dim nextCellInColumn As Range
    Set nextCellInColumn = Worksheets("Standard_Basket").Cells(Rows.Count, 5).End(xlUp).Offset(1, 0)
    nextCellInColumn.Value = Worksheets("Standard_NewSale_GSS").Range("V10").Value
End Sub

这将从工作表的最后一行开始，并使用End(xlUp)查找具有值的单元格，从而找到Worksheets("Standard_Basket") E列的最后一个单元格。 然后，它使用“ Offset移动到下一行。 最后，它将此单元格的值设置为等于Worksheets("Standard_NewSales_GSS")单元格V10 。