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

Question

我是VBA新手所以请耐心等待。 我想知道是否有人可以帮助我解决我遇到的问题。 有人可以帮助我将单元格V10复制到名为＆＃34; Standard_NewSale_GSS＆＃34;并粘贴到＆＃34; Standard_Basket＆＃34;中的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

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