[已解决]哪个代码运行速度快

642070295 · 发表于 2014-5-3 12:14

本帖最后由 642070295 于 2014-5-3 12:56 编辑

请教一下各位高手，处理excel数据中大量使用到复制粘贴数据的代码，比如:
sheets(1).range("a1")=98.35%
sheets(1).range("a1").copy sheets(2).range("c16") 或
sheets(2).range("c16")=format(sheets(1).range("a1"),"0.00%")
上述2条复制数据的代码表达式（红色部分），哪条代码的表达会提高代码的运行速度？

先谢了！

最佳答案

月排行榜 / 总排行榜

cbg2008

2014-5-3 12:25

Sub test1()
Dim t1 As Double
Dim t2 As Double
Dim i As Long
t1 = Timer
For i = 1 To 100
Sheets(1).Range("a1").Copy Sheets(2).Range("c16")
Next
t1 = Timer - t1
t2 = Timer
For i = 1 To 100
Sheets(2).Range("c16") = Format(Sheets(1).Range("a1"), "0.00%")
Next
t2 = Timer - t2
MsgBox t2 - t1
End Sub

复制代码

跳转到最佳答案楼层

cbg2008 · 发表于 2014-5-3 12:25

这个最佳答案由 cbg2008 给出，感谢 cbg2008 的回答。

单击隐藏图章

Sub test1()
Dim t1 As Double
Dim t2 As Double
Dim i As Long
t1 = Timer
For i = 1 To 100
Sheets(1).Range("a1").Copy Sheets(2).Range("c16")
Next
t1 = Timer - t1
t2 = Timer
For i = 1 To 100
Sheets(2).Range("c16") = Format(Sheets(1).Range("a1"), "0.00%")
Next
t2 = Timer - t2
MsgBox t2 - t1
End Sub

复制代码

xdragon · 发表于 2014-5-3 12:27

sheets(2).range("c16")=format(sheets(1).range("a1"),"0.00%")

复制代码

这个速度比另一种快很多。原因么，可能说起来就很复杂了。直接用测试结果来看更加直观

642070295 · 发表于 2014-5-3 12:55

非常感谢2位高手，都是很给力的代码解说！谢谢了！

蓝粆 · 发表于 2014-5-3 12:58

我也是来学习的~~

ghostjiao · 发表于 2014-5-3 13:45

蓝粆发表于 2014-5-3 12:58
我也是来学习的~~

蓝妹儿又在灌水

		自动登录	找回密码
密码			注册

[已解决]哪个代码运行速度快

点评

点评