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

Question

我有一本包含 2 个工作表的工作簿。表 1 是打开的，表 2 是关闭的情况

我正在尝试从用户选择的行中复制值并将它们粘贴到关闭的工作表上的下一个空白行中。

我有一个 VBA 可以做到这一点，但我认为可以减少它，但不知道该怎么做。

我当前的代码如下。 DRow 是一个计算值，工作正常，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