VBA「建立動態範圍」樞紐分析表

　　
如題，只是備忘。

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
Range("A10").CurrentRegion.Address).CreatePivotTable TableDestination:= _
Range("O10"), TableName:="樞紐分析表4", DefaultVersion:= _
xlPivotTableVersion10