excel-VBA中如何弹出代码执行的时间

1、一下代码使用for循环将1到30000依次写入A1~A30000单元格，执行起来如下图。用了不少时间才写完，但是不知道多久。Sub 宏1()Dim i As IntegerFor i = 1 To 30000 Step 1Range("A" & i) = iNextEnd Sub

4、因为是一次写30000个单元格，而秤郓鹜媲且是用for循环，还是会很费时间的。但是能看出来，时间还是减少了。我们如果将循环做到3000个单元格，时间会是多少？Sub 宏1()Application.ScreenUpdating = FalseDim i As IntegerDim tt = Timer For i = 1 To 3000 Step 1 Range("A" & i) = i NextMsgBox ("程序运行了" & Format(Timer - t, "0.00" & "秒"))End Sub

5、时间提示对代码的优化还是很有效的。待优化到极致后，删除时间提示的代码即可。