Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/15.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 需要优化一个缓慢的vba代码_Excel_Vba - Fatal编程技术网
Fatal编程技术网
  • excel/
  • Excel 需要优化一个缓慢的vba代码

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

excel vba

Excel 需要优化一个缓慢的vba代码,excel,vba,Excel,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个字段 有人能建议一种方法来优化这个代码或者重新编写以获得相同的输出吗 谢谢这做同样的事情，速度更快： With Range("abcd")

我正在使用下面的代码，它需要永远完成-

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个字段

有人能建议一种方法来优化这个代码或者重新编写以获得相同的输出吗

谢谢

这做同样的事情，速度更快：

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