为什么显示关于唯一商品的错误？

Question

我遇到一个错误，该错误是：源数据中的一个字段具有可在数据透视表报表中使用的更多唯一项。

基本上，如果选择此字段，则不会创建报告。自从该手动步骤获得VBA代码以来，我就已经手动进行过尝试，但是错误弹出。

我的源数据有约4.5万行。

这是我正在使用的代码

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

任何帮助将不胜感激。

谢谢。