需要优化一个缓慢的vba代码

我正在使用下面的代码，它将永远完成 –

For i = 1 To 21408 Range("abcd").Copy Rows(Range("abcd").Offset(i, 0).Row).Insert Shift:=xlDown Application.CutCopyMode = False Next i 

abcd是命名范围，有8个字段。

有人可以请build议一种方法来优化此代码或重新写入的方式来实现相同的输出？

谢谢

Answer 1

这同样的事情，更快：

 With Range("abcd") .Copy .Offset(1).Resize(21408, .Columns.Count).Insert Shift:=xlDown Application.CutCopyMode = False End With