0

目标是在最快的时间内为大 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,上述方法确实有效,但格式也必须复制。)

最快的方法是什么?

4

1 回答 1

1

你需要一个循环吗?看起来这就是你想要做的:

Range("A1").Copy Range("A2:A" & n + 1)
于 2013-08-08T20:56:31.703 回答