复制行并将其粘贴到多行

Question

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

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

这确实有效，但是由于要进行100次复制，因此会占用大量资源。

有没有一种方法可以优化此代码，以便可以进行一次高级复制，而不是在For循环中进行100次复制？

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

Rows(101).Copy

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

Answer 1

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

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