VBA創建數據透視表

Sub 透視表()
Dim PTC As PivotCache
Dim PVT As PivotTable
Dim rng As Range
Set rng = Sheet1.Range("a1:d45") '數據源
Set PTC = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=rng, Version:=xlPivotTableVersion14)
Set PVT = PTC.CreatePivotTable(TableDestination:=Range("h1"), TableName:="透視試驗", DefaultVersion:=xlPivotTableVersion14)
Set rng = Nothing '釋放對象變量
With PVT

.AddFields RowFields:=Array("編碼", "名稱"), ColumnFields:="方向" '填加行字段和列字段
.AddDataField .PivotFields("本幣"), "計數:本幣", xlCount '計數
.AddDataField .PivotFields("本幣"), "sum 本幣", xlSum '求和
'篩選
' For Each bm In .PivotFields("編碼").PivotItems
' If bm <> "05-0018" Then
' bm.Visible = False
' End If
' Next
.RowAxisLayout xlTabularRow '以表格形式顯示
.ShowDrillIndicators = False '取消+-按鈕
.RowGrand = False '每行匯總不顯示
.ColumnGrand = False '每列匯總不顯示
.PivotFields("編碼").Subtotals(1) = False ''去掉編碼字段中分類匯總功能，Subtotals(1)=false代表將索引 1（自動）為 false，則其他所有值將設置為 False。如果需要分類匯總功能，則設置為true或不要這句；
End With
Set PTC = Nothing
Set PVT = Nothing
End Sub