Come eliminare una tabella pivot in VBA

April 24

Come eliminare una tabella pivot in VBA


Una tabella pivot viene utilizzato per riassumere i dati ed è comunemente usato in programmi di foglio di calcolo come Microsoft Excel. Visual Basic, Applications è un linguaggio di programmazione sviluppato da Microsoft e utilizzato per automatizzare le attività di routine in applicazioni di Microsoft Office. Potrebbe essere necessario scrivere codice VBA per eliminare le tabelle pivot se si dispone di una cartella di lavoro con un sacco di fogli di lavoro ed è necessario eliminarli manualmente. In pochi passi si può scrivere codice VBA per cancellare una tabella pivot.

istruzione

1 Avviare Microsoft Office Excel e digitare "Colonne" a "A1", "dati" in "B1", "Campo" in "A2", "12" a "B2", "Campo2" in "A3" e "13" in "B3".

Fai clic su "A1", premere il tasto "Ctrl" e "A", fare clic sul menu "Inserisci" e selezionare "pivot". Fai clic su "OK".

2 Seleziona le caselle accanto a "Colonne" e "Data".

Selezionare la scheda "Sviluppatore", poi cliccare su "Visual Basic". Fare clic sul menu "Inserisci" e selezionare "Modulo".

3 Copiare e incollare il codice sottostante nel tuo nuovo modulo per eliminare la tabella pivot che avete appena creato.

Private Sub deletePivotTable ()

Dim Ptbl As PivotTable

Dim wrkSheet Come foglio di lavoro

Per ogni wrkSheet In ActiveWorkbook.Worksheets

Per ogni PTBL In wrkSheet.PivotTables

Range ( "A3: B6") Selezionare.

Selection.Delete Spostamento: = xlToLeft

Range ( "A1"). Selezionare

Exit Sub

Successivo PTBL

Successivo wrkSheet

End Sub