Kimutatásokról és felesleges adatokról volt itt szó.

Nem tudom, a 2007-es verzióra is jellemző-e, hogy azokat a tételeket is mutatja a szűrőkben, amiket már töröltünk a tartományból, de a kimutatás nem felejt. A 2003-as verzióra még igaz.

Valahonnan kaptam egykor egy "szellemírtó"-t, ami ezt a hibát megszünteti. Közre adom, biztosan jó hasznát veszi, akinek ilyen gondja van.

Sub RemoveGhostPivotItems()
    Dim ghost As PivotItem
    Dim pt As PivotTable
     
    Set pt = ActiveSheet.PivotTables(1)
    pt.ManualUpdate = True
     
    For i = 1 To pt.PivotFields(i).PivotItems
        On Error Resume Next
        For Each ghost In pt.PivotFields(i).PivotItems
            ghost.Delete
        Next ghost
    Next i
     
    pt.ManualUpdate = False
End Sub