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

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, DefaultVersion:= _ xlPivotTableVersion14 Sheets(Sheet1).Select Cells(3, 1).Select With ActiveSheet.PivotTables(数据透