摘要：
Application.Calculation = xlCalculationManual '手动计算 Application.Calculation = xlCalculationAutomatic '自动计算 Application.ScreenUpdating = False '关闭屏幕刷新 阅读全文
摘要：
Sub 透视表() Dim PTC As PivotCache Dim PVT As PivotTable Dim rng As Range Set rng = Sheet1.Range("a1:d45") '数据源 Set PTC = ActiveWorkbook.PivotCaches.Crea 阅读全文