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 

这是最小的答案，根据您的原始代码。