[转载]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

原文链接：VBA创建数据透视表