VBA從最後一次使用的行中的工作表1到工作表2的複製/粘貼值？

Question

我想複製粘貼我的值從單元格B21在工作表1到列B工作表2有哪些下一個可用的行？

Sub Modify_Trend() 


Dim N As Long 
    N = Sheets(2).Cells(Sheets(2).Rows.Count, "A").End(xlUp).Row + 1 
    Cells(N, "B").Value = Sheets(1).Range("B21").Value 



End Sub 

請問有人可以告訴我我要去哪裏嗎？這不會產生錯誤或任何內容，並且不起作用。

Answer 1

您需要完全符合表格（2）的Cells(N, "B").Value。

而且，你在A欄尋找最後一行（而不是列B）：

N = Sheets(2).Cells(Sheets(2).Rows.Count, "A").End(xlUp).Row + 1

嘗試下面的代碼：

Sub Modify_Trend() 

Dim N As Long 

With Sheets(2) 
    N = .Cells(.Rows.Count, "B").End(xlUp).Row + 1 
    .Range("B" & N).Value = Sheets(1).Range("B21").Value 
End With 

End Sub 

Answer 2

試試這個： 首先得到在工作表2中的列B的填充行的總數。

然後將工作表2的列B的last filled row + 1的值設置爲B21的值

Sub Modify_Trend() 

    Dim N As Long 
     N = Sheet2.Cells(Rows.Count, 2).End(xlUp).Row 
     Sheet2.Range("B" & N + 1).Value = Sheet1.Range("B21").Value 

    End Sub 

這是最小的答案，根據您的原始代碼。