|
本帖最后由 魂断蓝桥 于 2019-12-10 16:18 编辑
Sub CreatePivotTable()
Dim pvc As PivotCache
Dim pvt As PivotTable, i%, s$, r&
Application.ScreenUpdating = False
Cells.Clear
Set pvc = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
SourceData:=Sheet2.[a1:db65535])
Set pvt = pvc.CreatePivotTable(TableDestination:=Range("a3"), TableName:="数据透视表1")
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("数据透视表1").PivotFields("Stage")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("数据透视表1")
For i = 6 To 106
s = Sheet2.Cells(1, i)
.AddDataField ActiveSheet.PivotTables("数据透视表1").PivotFields(s), , xlSum
Next
End With
Application.ScreenUpdating = True
End Sub |
|