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

Excel VBA-复制单元格并粘贴到另一张图纸上的空单元格中,excel,vba,copy,paste,Excel,Vba,Copy,Paste,我是VBA新手,所以请容忍我。 我想知道是否有人能帮我解决我遇到的问题。 有人能帮我复制一张名为Standard_NewSale_GSS的表格中的单元格V10,并粘贴到Standard_Basket表格E列中下一个可用的空单元格中。 如果有人能帮忙,我们将不胜感激!这是我大学时的课程作业。如果您希望将这些值硬编码到子程序中,可以执行以下操作: Option Explicit Sub CopyIntoStandardBasketColumnE() Dim nextCellInColumn

我是VBA新手,所以请容忍我。 我想知道是否有人能帮我解决我遇到的问题。 有人能帮我复制一张名为Standard_NewSale_GSS的表格中的单元格V10,并粘贴到Standard_Basket表格E列中下一个可用的空单元格中。
如果有人能帮忙,我们将不胜感激!这是我大学时的课程作业。

如果您希望将这些值硬编码到子程序中,可以执行以下操作:

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

通过从工作表的最后一行开始,使用EndxlUp查找具有值的单元格,可以查找工作表标准_篮中E列的最后一个单元格。然后使用偏移量移动到下一行。最后,它将此单元格的值设置为等于工作表Standard_NewSales_GSS的单元格V10。

到目前为止您做了什么?给我们看看你的作品。我还没有真正做过任何事情,我太害怕我会犯错误,把事情搞砸@Tymoteusz Paul最初我尝试过这个,我在网上的某个地方找到了它,我一直在尝试根据我的要求修改它,但不幸的是出现了一个错误。子gss_addToSkeet2“gss_addToSkeet2宏”工作表SheetsSheet9.活动工作表SheetsSheetsSheetsSheets9.RangeV10.Copy工作表SheetsSheetsSheets11.Active eRow=Sheets11.CellsRow.Count,5.EndxlUp.Offset1,0.行活动表。粘贴目标:=工作表SheetsSheetsSheetsSheetsSheetsSheets11.Row结束子谢谢!你是救命恩人!它就像一个符咒@grovesNL@KatieM:没问题。要方便地让网站的其他用户知道该解决方案适合您,请单击此答案左侧的复选标记。欢迎来到堆栈溢出!