求助，为什么我的vba即使一段非常简单的复制代码都会运行好久 - vba吧

level 1

星絔色楼主

就像这么复制都要运行好一会，之前都还好好的
Sub fz()
n = 1
For i = 1 To 20
Set ra = Range("c" & i)
ra.Copy Range("e" & n)
n = n + 1
Next
End Sub

2024年09月22日 09点09分 1

level 1

星絔色楼主

不带复制，其他代码运行就很正常

2024年09月22日 09点09分 2

level 4

僚哥哥

Sub fz()
arr=range("C1:C20")
range("E1:E20")=arr
End Sub
操作单元格对象是很耗时的一个操作，特别是数据量大的时候，尽量用数组。我举个例子：有一箱矿泉水，要从A地点拿到B地点，你的代码就是一次拿一瓶，直接到拿完为止。我的代码就是直接拿完一箱。

2024年09月23日 08点09分 3

星絔色

谢谢，我主要是配合find的函数进行批量查找时，发现代码运行的非常慢。然后逐行运行时，发现就是复制时会卡好久，然后就写了上面那段代码试试看。发现就是复制这块非常耗时间

2024年09月23日 13点09分

星絔色

@星絔色以前都没有这么慢

2024年09月23日 13点09分

level 7

表中是不是有许多复杂公式，考虑关闭自动计算，语句如下：
循环复制前：
Application.Calculation = xlCalculationManual
复制完毕后：
Application.Calculation = xlCalculationAutomatic

2024年09月26日 02点09分 4