VBA实战——创建数据透视表.doc

.Sub 创建数据透视表() ActiveWorkbook.Names.Add Name:=database1, RefersToR1C1:= _ =OFFSET(R4C3,COUNTA(C3),COUNTA(R4) ActiveWorkbook.Names(database1).Comment = Rows(5:5).Select Selection.Delete Shift:=xlUp Range(C4).Select Sheets.Add ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ database1, Version:=xlPivotTableVersion14).CreatePivotTable _ TableDestination:=Sheet1!R3C1, TableName:=数据透视表1, D