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

就像这么复制都要运行好一会，之前都还好好的
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

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

2025-03-26 01:31广告

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

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

下载贴吧APP
看高清直播、视频！

分享到: