VBA - 复制单元格并粘贴到另一个表单上的空单元格

我是VBA的新手，请耐心等待。我想知道是否有人可以帮我解决我遇到的问题。有人可以帮助我将单元格V10复制到名为“Standard_NewSale_GSS”的工作表中，并粘贴到“Standard_Basket”工作表E列中的下一个可用空单元中。如果有人能帮助它，将非常感谢！这是我在大学学习的课程。VBA - 复制单元格并粘贴到另一个表单上的空单元格

来源

2014-11-08 KatieM

到目前为止你做了什么？告诉我们你的工作。 – 2014-11-08 23:21:30

我还没有做过任何事情，我一直都很害怕，因为我犯了一个错误，搞砸了一切。 @Tymoteusz保罗 – KatieM 2014-11-09 23:32:26

最初我试过这个，我发现它在网上的某个地方，我一直试图改变它到我的要求，但不幸的是有一个错误。子gss_addtobasket2（） ' ' gss_addtobasket2宏 ' 工作表（ “Sheet9”）。活性工作表（ “Sheet9”）。范围（ “V10”）。复印工作表（ “Sheet11”）。活性 eRow = Sheet11.Cells（Row.Count，5）.END（xlUp）.Offset（1，0）.Row ActiveSheet.Paste目的地：=工作表（ “Sheet11”）行（eRow）结束子 – KatieM 2014-11-09 23:35:25

如果您希望将这些值硬编码到您的函数，你可以这样做以下：

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移动到下一行。最后它将该单元格的值设置为等于Worksheets("Standard_NewSales_GSS")的单元格V10。

来源

2014-11-08 23:48:27 grovesNL

谢谢太好了！你是一个救星！它像一个魅力！ @grovesNL – KatieM 2014-11-09 23:40:39

@KatieM：没问题。要轻松地让网站的其他用户知道该解决方案为您工作，请单击此答案左侧的复选标记。欢迎来到堆栈溢出！ – grovesNL 2014-11-10 00:11:49

VBA - 复制单元格并粘贴到另一个表单上的空单元格

回答

相关问题