[已解决]EXCEL高手用VBA如何将计算需要多少秒

vbyou127

EXCEL高手用VBA如何将计算需要多少秒

最佳答案

月排行榜 / 总排行榜

L50814026

2016-3-26 10:23

1. Sub 数组计算D列结果()
   
2. Dim t
   
3. t = Timer
   
4.     arr = [b2:d1001]
   
5.     For i = 1 To 1000
   
6.     arr(i, 3) = arr(i, 1) * arr(i, 2)
   
7.     Next
   
8.     [b2:d1001] = arr
   
9.     t1 = Timer - t
   
10.     [g15] = t1
    
11. MsgBox t1
    
12. End Sub

复制代码

跳转到最佳答案楼层

L50814026

1. Sub 数组计算D列结果()
   
2. Dim t
   
3. t = Timer
   
4.     arr = [b2:d1001]
   
5.     For i = 1 To 1000
   
6.     arr(i, 3) = arr(i, 1) * arr(i, 2)
   
7.     Next
   
8.     [b2:d1001] = arr
   
9.     t1 = Timer - t
   
10.     [g15] = t1
    
11. MsgBox t1
    
12. End Sub

复制代码