Avviare Microsoft Excel e aprire la cartella di lavoro .
2
Comunicati "Alt + F8 " per aprire la finestra Macro. Tipo " GetSheetNames " nella casella " Nome macro " e fare clic su "Crea ".
3
Inserisci il seguente codice nell'editor di VBA .
GetSheetNames Sub ( ) per
Dim wSheet come manuale
Ogni wSheet in fogli di lavoro
On Error Resume Next
ActiveCell.Value = wSheet.Name
ActiveCell.Offset ( 1 , 0 ) . Scegli
Avanti wSheet
End Sub
4
Chiudere l'editor di VBA per tornare alla cartella di lavoro .
5
Evidenziare una cella nel foglio di calcolo . Premere il tasto " Alt + I " e poi " C " per creare una colonna vuota .
6
Clicca sulla prima cella vuota nella nuova colonna .
7
Premete "Alt + F8 "per aprire di nuovo la finestra Macro. Seleziona " GetSheetNames " e quindi fare clic su "Esegui ".
software © www.354353.com