Jak odstranit jednu nebo všechny kontingenční tabulky v aplikaci Excel?
Kontingenční tabulka je velmi užitečná funkce pro prohlížení nebo výpočet dat v aplikaci Excel, proto můžeme kontingenční tabulky obvykle vkládat do listu nebo více listů. Ale víte, jak odstranit jednu nebo všechny kontingenční tabulky v listu nebo v celém sešitu?
Odstraňte jednu kontingenční tabulku v listu
Odstraňte všechny kontingenční tabulky v celém sešitu pomocí VBA
Odstraňte jednu kontingenční tabulku v listu
V aplikaci Excel můžete odstranit jednu kontingenční tabulku následovně:
1. Klikněte na sestavu kontingenční tabulky. Viz screenshot:
2. Pak klikněte na tlačítko Volba > vybrat > Celá kontingenční tabulka a poté vyberte kontingenční tabulku. Viz screenshot:
Tip: Pokud používáte Excel 2013, kliknutím na ikonu vyberte celou kontingenční tabulku Analyzovat > vybrat > Celá kontingenční tabulka.
3. A stiskněte Vymazat tlačítko na klávesnici, kontingenční tabulka bude odstraněna.
Odstraňte všechny kontingenční tabulky v celém sešitu pomocí VBA
Pokud máte v sešitu více kontingenčních tabulek, je jejich mazání jeden po druhém příliš časově náročné. Nyní je můžete pomocí VBA odstranit najednou.
1. lis Alt + F11 pro zobrazení Microsoft Visual Basic pro aplikace okno.
2. V okně klikněte na Vložit > Modul pro zobrazení nového okna modulu, potom zkopírujte následující kód VBA do okna modulu.
VBA: Odeberte všechny kontingenční tabulky v celém sešitu.
Sub DeleteAllPivotTablesInWorkbook()
'Updateby20140618
Dim xWs As Worksheet
Dim xPT As PivotTable
For Each xWs In Application.ActiveWorkbook.Worksheets
For Each xPT In xWs.PivotTables
xWs.Range(xPT.TableRange2.Address).Delete Shift:=xlUp
Next
Next
End Sub
3. cvaknutí Běh tlačítko, pak se odstraní všechny kontingenční tabulky v celém sešitu.Relativní články:
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!