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 - 複製單元格並粘貼到另一個表單上的空單元格

回答

相關問題