Sub SumtoCount()

   Dim pt As PivotField ’定義變量pt為字段

   Application.ScreenUpdating = False ’禁止刷新屏幕

   For Each pt In Sheet1.PivotTables(1).DataFields ’For-Next循環(huán)語(yǔ)句。遍歷Sheet1中數(shù)據(jù)透視表1所有的字段集合

       With pt ’wWth-End With語(yǔ)句，簡(jiǎn)化VBA代碼，減少引用對(duì)象的尋找速度

          .Function = xlSum  ’字段的數(shù)值方式設(shè)置為求和

          .Caption = .SourceName & ' ' ’字段名稱修改為數(shù)據(jù)源中的字段名

       End With

   Next

   Application.ScreenUpdating = True ’開啟屏幕刷新