三步创建透视表

Sub s()
Set w = ThisWorkbook.PivotCaches
Set g = w.Create(SourceType:=xlDatabase, SourceData:=Sheet3.UsedRange)
Set c = g.CreatePivotTable(TableDestination:=Sheet1.Range("C4"), TableName:="AAA")
End Sub

占坑后续完善