将数据从一张纸复制到另一张纸上的下一个可用行

Question

我以前从未使用过宏，但任何人都可以告诉我在下面的宏中缺少了什么，所以表1中的数据将被复制到下一个可用行在工作表2中？我尝试了“LastRow”，“NextRow”命令，但我无法正确理解。任何帮助都会很棒。

Sheets("Sheet1").Range("B2").Select 
Selection.Copy 
iRow = Worksheets("Sheet2").Cells(Rows.Count, 1).End(x1up).Row + 1 
Sheets("Sheet2").Range ("B" & iRow) 
ActiveSheet.Paste 

Answer 1

尝试其中之一。它是xlup而不是x1up，并且您没有粘贴到您的目标单元格（并且不需要Selects）。

iRow = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlup).Row + 1 
Sheets("Sheet1").Range("B2").Copy Sheets("Sheet2").Range ("B" & iRow) 

或

iRow = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlup).Row + 1 
Sheets("Sheet2").Range ("B" & iRow).value=Sheets("Sheet1").Range("B2").value