将用户选定行复制到新工作表上的下一个空白行

我有一个工作簿2工作表。 纸张1打开，纸张2closures的情况下

我试图复制用户select的行的值，并将其粘贴到封闭的工作表上的下一个空行。

我有一个VBA这样做，但我认为它可以减less，但不知道如何去做。

我目前的代码如下。 DRow是一个计算的calue，工作正常，Irow从消息框中获得，并再次正常工作

Worksheets("Closed").Cells(DRow, 2).Value = Worksheets("Open").Cells(iRow, 2).Value Worksheets("Closed").Cells(DRow, 3).Value = Worksheets("Open").Cells(iRow, 3).Value Worksheets("Closed").Cells(DRow, 4).Value = Worksheets("Open").Cells(iRow, 4).Value Worksheets("Closed").Cells(DRow, 5).Value = Worksheets("Open").Cells(iRow, 5).Value Worksheets("Closed").Cells(DRow, 6).Value = Worksheets("Open").Cells(iRow, 6).Value Worksheets("Closed").Cells(DRow, 7).Value = Worksheets("Open").Cells(iRow, 7).Value Worksheets("Closed").Cells(DRow, 8).Value = Worksheets("Open").Cells(iRow, 8).Value Worksheets("Closed").Cells(DRow, 9).Value = Worksheets("Open").Cells(iRow, 9).Value 

有没有办法把它压缩成一两行

Answer 1

只需使用.Resize ：

 Worksheets("Closed").Cells(DRow, 2).Resize(1,7).Value = _ Worksheets("Open").Cells(iRow, 2).Resize(1,7).Value