Jak usunąć jedną lub wszystkie tabele przestawne w programie Excel?

Tabela przestawna to bardzo przydatna funkcja do przeglądania lub obliczania danych w programie Excel, więc zwykle możemy wstawiać tabele przestawne do arkusza lub wielu arkuszy. Ale czy wiesz, jak usunąć jedną lub wszystkie tabele przestawne z arkusza lub całego skoroszytu?

Usuń jedną tabelę przestawną w arkuszu

Usuń wszystkie tabele przestawne w całym skoroszycie za pomocą języka VBA

Usuń jedną tabelę przestawną w arkuszu

W programie Excel możesz usunąć jedną tabelę przestawną w następujący sposób:

1. Kliknij raport tabeli przestawnej. Zobacz zrzut ekranu:

2. Następnie kliknij Option > Wybierz > Cała tabela przestawna , aby wybrać, a następnie tabelę przestawną. Zobacz zrzut ekranu:

Porada: Jeśli korzystasz z programu Excel 2013, wybierz całą tabelę przestawną, klikając przycisk Analizować > Wybierz > Cała tabela przestawna.

3. I naciśnij Usuń na klawiaturze tabela przestawna zostanie usunięta.

Usuń wszystkie tabele przestawne w całym skoroszycie za pomocą języka VBA

Jeśli masz wiele tabel przestawnych w skoroszycie, usuwanie ich pojedynczo jest zbyt czasochłonne. Teraz możesz użyć VBA, aby je natychmiast usunąć.

1. naciśnij Alt + F11 wyświetlić Microsoft Visual Basic for Applications okno.

2. W oknie kliknij wstawka > Moduł aby wyświetlić nowe okno modułu, a następnie skopiuj następujący kod VBA do okna modułu.

VBA: Usuń wszystkie tabele przestawne z całego skoroszytu.

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

Względne artykuły:

• Usuń wszystkie komentarze w programie Excel