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快一点作者: chiahuo 時間: 2010-7-9 08:37