请求高人帮忙写一个定时清理EXCEL缓存的VBA，谢谢。其实也不一定要VBA，只要能加速EXCEL运行的就可以了

情况是这样的。EXCEL运行20多分钟后运行速度就会变慢，但重开后就恢复正常，内存最高占用只有70多M，CPU占用也不高，请问有什么方法可以不关闭重开也可以加快速度？360加速球效果不明显

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address(0, 0) = "B2" Or Target.Address(0, 0) = "B3" Then
Target.Value = ""
End If
If Target.Address(0, 0) = "A2" Then
Target.Value = "0"
End If
If Target.Address(0, 0) = "A3" Then
Target.Value = "1"
End If

Application.EnableEvents = True
End Sub

估计问题不是清理缓存能解决的。
你工作表中公式多不多？
你下面说经常搜索，没看见搜索的代码，是手工搜索吗？

private sub workbook_open() '打开该表格则运行 dim t#     t = timer     do while format(timer - s, "0") mod 1800 = 0 '1800秒即半个钟         application.cutcopymode = false     loop end sub