excel - 复制行并粘贴到多行

Question

我有以下代码，它将复制一行并将其粘贴到多行中。

For i = 2 To 100
    Rows(101).Copy Rows(i)
Next i

这确实有效，但需要大量资源，因为要复制 100 次。

有没有办法优化这段代码，以便可以提前复制一次，而不是在 For-loop 内复制 100 次？

已经尝试过了，但这确实会引发错误。“对象不支持此属性或方法”

Rows(101).Copy

For i = 2 To 100
     Rows(i)
Next i

Answer 1

您可以将其仅在一行中复制到所有行：

Rows(101).Copy Rows("2:100")