Sub AddPt()
Dim pt As PivotTable
Dim x As Range, y As Range
Set x = Sheets("库存表").Range("a1:ah" & Sheets("库存表").Range("a65536").End(xlUp).Row)
Set y = Sheets("库存统计表").[a1]
Call DelPt(y.Parent)
Set pt = y.Parent.PivotTableWizard(SourceType:=xlDatabase, SourceData:=x, TableDestination:=y)
With pt
.PivotFields("客户料号").Orientation = xlRowField
With .PivotFields("库存数量")
.Orientation = xlDataField
.Function = xlSum
End With
End With
y.CurrentRegion.EntireColumn.AutoFit
End Sub
Sub DelPt(sh As Worksheet)
Dim pt As PivotTable
sh.Cells.Clear
For Each pt In sh.PivotTables
pt.TableRange2.Clear
Next
End Sub