Avviare Microsoft Office Excel e di tipo "Colonne" in , "dati" "A1" a " B1 " , "campo" in " A2 " , "12" a " B2 " , " campo2 " a " A3 " , e " 13 " a " B3 " .
clicca " A1 " , premere il tasto " Ctrl "e" A ", fare clic sul " menu " e selezionare " Inserisci tabella pivot " . Fare clic su " OK ".
2
Controllare le caselle accanto alle "Colonne" e "Data ".
Selezionare la scheda " Sviluppo " , quindi fare clic su " Visual Basic ". Fai clic sul menu "Inserisci" e selezionare "Modulo ".
3
Copia e incolla il codice sottostante nel tuo nuovo modulo per eliminare la tabella pivot che avete appena creato .
deletePivotTable private Sub ( ) per
Dim PTBL Come pivot
Dim wrkSheet come manuale
Ogni wrkSheet In ActiveWorkbook.Worksheets
Ogni PTBL In wrkSheet . tabelle pivot
Range (" A3 : B6 " ) . Selezionare
Selection.Delete Maiusc : . = xlToLeft
Range (" A1 ") Selezionare
Exit Sub
Avanti PTBL
Avanti wrkSheet
End Sub
Programmazione © www.354353.com