Excel vba创建数据透视表

在Excel表格中，做数据分析常用到的就是数据透视表了。可以按照不同方式重新排列分析数据。

在菜单中，可以直接插入数据透视表的功能，按提示选择表字段分析统计

也可以通过代码创建数据透视表，方便自动处理一些常用的计算。

创建数据透视表代码，在新的表格中创建一个数据透视表，在“A3”中开始显示表数据，设置字段组合的位置

Sub CreatePivotTable()
    Dim PTCache As PivotCache
    Dim PT As PivotTable
    
    Set PTCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Range("A1").CurrentRegion)  
    Worksheets.Add    
    Set PT = ActiveSheet.PivotTables.Add(PivotCache:=PTCache, TableDestination:=Range("A3"))  '    创建数据透视表 
    With PT
        .PivotFields("Sex").Orientation = xlPageField
        .PivotFields("Month").Orientation = xlColumnField
        .PivotFields("Name").Orientation = xlRowField
        .PivotFields("Fa").Orientation = xlDataField 
        .DisplayFieldCaptions = False   '是否显示字段标题
    End With
End Sub

创建成功。