excel - 为什么会显示有关独特物品的错误？
问题描述
我收到一条错误消息：源数据中的某个字段具有更多可在数据透视表中使用的唯一项。
基本上，如果选择此字段，它将不会创建报告。我刚刚手动尝试过，因为我从该手动步骤中获取了 VBA 代码，但错误弹出。
我的源数据有 ~45k 行。
这是我正在使用的代码
Dim pt As PivotTable
Dim wrkSht As Worksheet
Dim pvtSht As Worksheet
Dim PTCache As PivotCache
Dim PRange As Range
Dim finalRow As Long
Dim finalCol As Long
Set wrkSht = Worksheets("Data")
Set pvtSht = Worksheets("Pivot")
finalRow = wrkSht.Cells(Application.Rows.Count, 1).End(xlDown).Row
finalCol = wrkSht.Cells(1, Application.Columns.Count).End(xlToLeft).Column
Set PRange = wrkSht.UsedRange
Set PTCache = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=PRange)
Set pt1 = PTCache.CreatePivotTable(TableDestination:=pvtSht.Cells(1, 1), TableName:="Pivot")
pt1.RowAxisLayout xlCompactRow
任何帮助将不胜感激。
提前致谢。