需要更快的循环

Question

目标是在最快的时间内复制并过去大n的n-1个单元

这个循环有效，但是对于大的n：

，运行时很长

For i = 1 to n
Range("A" & i).Copy Destination:=Range("A" & i + 1)
Next

我认为这个循环会更快，但它不起作用：

For i = 1 to n
Range("A" & i + 1) = Range("A" & i)
Next

（如果添加了.value，上面的会工作，但也必须复制格式。）

最快的方法是什么？

Answer 1

你需要一个循环吗？看起来这就是你要做的事情：

Range("A1").Copy Range("A2:A" & n + 1)