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

Question

I'm new to VBA so please bear with me. I was wondering if someone could help me please with an issue I am experiencing. Can someone help me copy the cell V10 in a sheet named "Standard_NewSale_GSS" and paste into the next available empty cell in the Column E in the "Standard_Basket" sheet. If anyone can help it would be very much appreciated! It's for my coursework at college.

Answer 1

If you wish to hardcode these values into your subroutine, you could do something like the following:

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

This finds the last cell of column E in Worksheets("Standard_Basket") by starting at the last row of the worksheet and using End(xlUp) to find a cell with a value. Then it uses Offset to move to the next row. Finally it sets this cell's value to be equal to cell V10 of Worksheets("Standard_NewSales_GSS") .