VBA将两列数据字符连接运行时间很长

hdbk

需要将两列数据连接起来，请见附件，单独运行非常快，0.2秒都不要，但是作为一个sub和其他几个sub放在一个模块中，运行非常慢，差不多几分钟都没有运行完（我是指下面这个sub, 不是指所有sub运行），这个是什么原因呢？ 字符连接.zip (35.84 KB, 下载次数: 7)

2018-6-12 00:23 上传

点击文件名下载附件

Sub dataprocess()
Dim drr
mytime = Timer
Application.ScreenUpdating = False
drr = Range("a1").CurrentRegion
For i = 2 To UBound(drr)
    Cells(i, 15) = drr(i, 14) & Month(drr(i, 2)) & Day(drr(i, 2))
Next
MsgBox "运行时间为" & Timer - mytime & "秒"
Application.ScreenUpdating = True
End Sub

vbee

1. Sub dataprocess()
   
2. Dim drr
   
3. mytime = Timer
   
4. Application.ScreenUpdating = False
   
5. drr = Range("a1").CurrentRegion
   
6. Range("o1").Resize(UBound(drr)).Clear
   
7. arr = Range("o1").Resize(UBound(drr))
   
8. For i = 2 To UBound(drr)
   
9.     arr(i, 1) = drr(i, 14) & Month(drr(i, 2)) & Day(drr(i, 2))
   
10. Next
    
11. Range("o1").Resize(UBound(drr)) = arr
    
12. MsgBox "运行时间为：" & Timer - mytime & "秒"
    
13. Application.ScreenUpdating = True
    
14. End Sub
    

复制代码

hdbk

vbee 发表于 2018-6-12 08:02

非常感谢，的确运行快很多