Почему отображается ошибка отображения уникальных предметов? - PullRequest
Новая
       7

Почему отображается ошибка отображения уникальных предметов?

0 голосов
/ 05 сентября 2018

У меня ошибка: «В ваших исходных данных есть больше уникальных элементов, которые можно использовать в отчете сводной таблицы.

Как правило, при выборе этого поля отчет не будет создаваться. Я только что попробовал это вручную, так как я получаю код VBA с этого шага, но появляется ошибка.

Мои исходные данные имеют ~ 45 тыс. Строк.

Это код, который я использую 

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

Любая помощь будет оценена.

Заранее спасибо.

...