office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Excel vba创建数据透视表

2021-02-20 08:00:00
tmtony8
原创
161

在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

创建成功。

    分享