VBA 数据透视表的初步认识

今天讲讲数据透视表，因为理解上花了一点时间，内容会比较少。

 

为了测试，先新建了一张这样的表

为了看看VBA中新建透视表的代码，框住上面的表格，插入了一张透视表，录制后的内容及代码如下：

Sub 宏1()
'
' 宏1 宏
'
'
    Range("A1:E23").Select
    Range("E23").Activate
    Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Sheet1!R1C1:R23C5", Version:=6).CreatePivotTable TableDestination:= _
        "Sheet2!R3C1", TableName:="数据透视表1", DefaultVersion:=6
    Sheets("Sheet2").Select
    Cells(3, 1).Select
    With ActiveSheet.PivotTables("数据透视表1")