Hur rensar jag filtercache (gamla objekt) från pivottabellen i Excel?
Som bilden nedan visas skapar du en pivottabell baserad på en rad data. Efter att ha raderat data från källområdet kommer det gamla objektet fortfarande att finnas i rullgardinsmenyn i pivottabellen trots att du uppdaterar pivottabellen. Om du vill ta bort alla gamla objekt från rullgardinsmenyn i en pivottabell kan metoderna i den här artikeln hjälpa dig.
Rensa filtercache (gamla objekt) från en pivottabell genom att ändra dess alternativ
Rensa filtercache (gamla objekt) från alla pivottabeller med hjälp av VBA-kod
Rensa filtercache (gamla objekt) från en pivottabell genom att ändra dess alternativ
Du kan rensa filtercache från en pivottabell genom att ändra dess alternativ. Gör så här.
1. Högerklicka på vilken cell som helst i pivottabellen och klicka sedan på PivotTable-alternativ från snabbmenyn. Se skärmdump:
2. I PivotTable-alternativ dialogrutan, klicka på Data fliken, välj Ingen från Antal objekt som ska behållas per fält rullgardinsmenyn och klicka sedan på OK knapp.
3. Högerklicka på pivottabellcellen och klicka sedan på refresh från högerklickmenyn. Se skärmdump:
Då kan du se att de gamla objekten tas bort från rullgardinsmenyn i pivottabellen som visas nedan.
Rensa filtercache (gamla objekt) från alla pivottabeller med hjälp av VBA-kod
Om du vill rensa filtercache från alla pivottabeller över flera kalkylblad i aktiv arbetsbok. Försök med nedanstående VBA-skript.
1. I arbetsboken måste du rensa gamla objekt från alla pivottabeller, tryck på andra + F11 samtidigt för att öppna Microsoft Visual Basic for Applications-fönstret.
2. I Microsoft Visual Basic för applikationer dubbelklicka på Denna arbetsbok i Projekt rutan för att öppna Denna arbetsbok (kod) och kopiera och klistra sedan in VBA-koden nedan i fönstret.
VBA-kod: Rensa filtercache (gamla objekt) från alla pivottabeller i aktiv arbetsbok
Private Sub Workbook_Open()
Dim xPt As PivotTable
Dim xWs As Worksheet
Dim xPc As PivotCache
Application.ScreenUpdating = False
For Each xWs In ActiveWorkbook.Worksheets
For Each xPt In xWs.PivotTables
xPt.PivotCache.MissingItemsLimit = xlMissingItemsNone
Next xPt
Next xWs
For Each xPc In ActiveWorkbook.PivotCaches
On Error Resume Next
xPc.Refresh
Next xPc
Application.ScreenUpdating = True
End Sub
3. tryck på F5 för att köra koden, sedan tas gamla objekt bort direkt från rullgardinsmenyn för alla pivottabeller i aktiv arbetsbok.
Relaterade artiklar:
- Hur rensar jag filter från alla kalkylblad i aktiv arbetsbok i Excel?
- Hur rensar jag filter när man öppnar, sparar eller stänger arbetsbok i Excel?
- Hur filtrerar jag data baserat på kryssrutan i Excel?
- Hur fyller jag siffror i en filtrerad listkolumn i Excel?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!