如何在同一时间复制多行？

Question

我有大量数据。

如何在同一时间复制多行？

其中我想要的行在每四行的系统方法中重复。请看图。

提前感谢您的帮助。 MANY ROWS

Answer 1

尝试类似的事情，

with worksheets("sheet1")
   .range("a2:b2, a6:b6, a10:b10, a14:b14, a18:b18").copy _
      destination:=.range("f2")
end with

或者，使用“数千行”，您可以创建一个带循环的联合。

With Worksheets("sheet1")
    Set rng = .Range("a2:b2")
    For rw = 6 To .Cells(Rows.Count, 1).End(xlUp).Row Step 4
        Set rng = Union(rng, .Cells(rw, 1).Resize(1, 2))
    Next rw
   rng.Copy Destination:=.Range("f2")
End With

Answer 2

将其放入F2并上下复制：

=INDEX(A:A,(ROW(1:1)-1)*4+2)