- 帖子
- 75
- 主題
- 19
- 精華
- 0
- 積分
- 135
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 2007 010
- 閱讀權限
- 20
- 註冊時間
- 2010-5-18
- 最後登錄
- 2013-10-26
|
Sub 测试()
t = Timer
For i = 1 To 10000
ActiveCell.FormulaR1C1 = _
"=R[-16]C[-5]+R[-16]C[-4]+R[-16]C[-3]+R[-16]C[-2]+R[-16]C[-1]+R[-16]C" ' ActiveCell.FormulaR1C1 = "=SUM(R[-17]C[-6]:R[-17]C[-1])"
Next
MsgBox Timer - t
End Sub
还是sum快一点 |
|
發表於 2010-7-8 21:16
| 