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 。