VBA自动刷新数据表时,特慢如何解决.(宏录制)

TT0884

宏录制的自动刷新数据表,打开刷新时,总是比较慢

最近在从2000版EXCEL里的数据粘贴在03版中,在使用动态数据透视   自动刷新时候,   机器几乎死了 , 要30秒钟以上才有反应


而复制粘贴03 版内的数据  20000条记录   动态数据透视也都没问题..
请指教问题出现在哪里 ?

TT0884

Private Sub Worksheet_Activate()
    Application.ScreenUpdating = False

    ActiveSheet.PivotTables("数据透视表1").PivotCache.Refresh
    Cells.EntireColumn.AutoFit
    Cells.EntireColumn.AutoFit
Columns("I:I").Font.Bold = True

    Range("b1").Select

    Application.ScreenUpdating = True
End Sub
这是代码,问题在哪里呢? 唉

jssy

Columns("I:I").Font.Bold = True
这个操作整列的操作，很花时间的

TT0884

恩,  还真是!  以前为了练习两个数透表数据相互加总, 随意在旁边建了个透视表,忘记删除了