清除数据测试速度

张雄友

清除数据测试速度，请指证。

cjainwei

Application.ScreenUpdating = True 第一个应该是False吧!应该是先关闭,最后再打开.我个人感觉应该是这个逻辑顺序!

1. Sub 清除数据测速()
   
2. Application.ScreenUpdating = True
   
3. TT = Timer
   
4. Dim sh As Worksheet
   
5. For Each sh In ThisWorkbook.Worksheets
   
6. sh.Range("2:65536").ClearContents
   
7. Next
   
8. MsgBox "用时: " & Format(Timer - TT, "0.00s")
   
9. Application.ScreenUpdating = True
   
10. End Sub

复制代码

张雄友

cjainwei 发表于 2013-6-9 17:38
Application.ScreenUpdating = True 第一个应该是False吧!应该是先关闭,最后再打开.我个人感觉应该是这个逻 ...

是一时写错了，多谢提醒。