我想将单元格从工作表复制到最后一行并粘贴到最后一行之外的另一个工作表

时间:2016-09-15 11:43:49

标签: copy row paste next

这是我到目前为止所做的。我想搜索lastrow并将细胞从A5复制到G&拉伸并将其粘贴到F& nextrow和之后。 nextrow是第二张表的最后一行加一的变量。

Dim lastrow As Long
Dim nextrow As Long

lastrow = Worksheets("BackFlush").Cells("BackFlush".Rows.Count, 1).End(xlUp).Row
nextrow = Worksheets("Stock Removed").Cells("Stock Removed").Rows.Count, 1).End(x1up).Row

nextrow = nextrow + 1

Sheets("BackFlush").Range("A5:G & lastrow").Copy
Sheets("Stock Removed").Range("F & nextrow").Paste

任何帮助都是可取的。

提前谢谢!

0 个答案:

没有答案