excel - 从 excel 2016 到 2013 的数据透视表创建

Question

我创建了一个代码，该代码基于一组数据在新工作表中创建了一个数据透视表。问题是有时它会跳过数据透视表的创建。仅在 excel 2013 中跳过，在 excel 2016 上它总是创建数据透视表。

我检查了大小，但它会创建更大的文件，每个示例 100.000 个项目，而跳过的项目是 80.000

'Define Data Range
lastrow = DSheet.Cells(rows.Count, 2).End(xlUp).Offset(1, 0).Row
LastCol = DSheet.Cells(1, Columns.Count).End(xlToLeft).Column
Set PRange = DSheet.Cells(1, 1).Resize(lastrow, LastCol)


'Define Pivot Cache
Set PCache = ActiveWorkbook.PivotCaches.Create _
(SourceType:=xlDatabase, SourceData:=PRange, _
        Version:=xlPivotTableVersion15). _
CreatePivotTable(TableDestination:=PSheet.Cells(1, 1), _
TableName:=NameTable)


'Insert Blank Pivot Table
Set PTable = PCache.CreatePivotTable _
(TableDestination:=PSheet.Cells(1, 1), TableName:=NameTable)

它应该在新工作表中创建一个数据透视表

标签： excelvba