Come si fa a copiare un foglio e a rinominarlo automaticamente in base al valore di una cella in Excel?
Normalmente, puoi utilizzare la funzionalità Sposta o copia per duplicare un foglio di lavoro e assegnargli manualmente un nuovo nome in base alle tue esigenze. Ma hai mai provato a rinominare automaticamente il foglio in base al valore di una cella subito dopo averlo copiato? In questo articolo ti mostreremo come rinominare il foglio di lavoro automaticamente in base al contenuto di una cella al momento della copia.
Copiare un foglio di lavoro e rinominarlo in base al valore di una cella con codice VBA
Copiare un foglio di lavoro e rinominarlo in base al valore di una cella con codice VBA
Il seguente codice VBA consente di copiare un foglio di lavoro e di rinominarlo automaticamente in base al valore contenuto in una cella specifica. Procedere come segue:
1. Attiva il foglio di lavoro da copiare, quindi tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic, Applications Edition.
2. Fare clic su Inserisci > Modulo, quindi incollare il codice seguente nella finestra del Modulo.
Codice VBA: copiare un foglio di lavoro e rinominarlo con il valore di una cella:
Sub Copyrenameworksheet()
'Updateby Extendoffice
Dim ws As Worksheet
Set wh = Worksheets(ActiveSheet.Name)
ActiveSheet.Copy After:=Worksheets(Sheets.Count)
If wh.Range("A1").Value <> "" Then
ActiveSheet.Name = wh.Range("A1").Value
End If
wh.Activate
End Sub
3. Premere quindi il tasto F5 per eseguire il codice. Il foglio di lavoro corrente verrà copiato dopo tutti gli altri fogli e rinominato con il valore della cella specificata. Vedere lo screenshot:
Nota: nel codice sopra riportato, il riferimento di cella A1 corrisponde al valore che si desidera utilizzare per rinominare il nuovo foglio copiato; è possibile modificarlo in base alle proprie esigenze.
Copiare un foglio di lavoro più volte e rinominarlo in base ai valori delle celle con Kutools per Excel
Il codice precedente consente di rinominare un foglio in base a un singolo valore di cella. Se invece avete bisogno di copiare il foglio più volte e assegnare nomi diversi in base a un elenco di valori, la funzione Kutools per Excel di Crea foglio sequenza vi permetterà di completare questa operazione in pochissimo tempo.
Dopo aver installato Kutools per Excel, procedere come segue:
1. Fare clic su KUTOOLS PLUS > Foglio di lavoro > Crea fogli di lavoro sequenziali. Vedere lo screenshot:
2. Nella finestra di dialogo Crea foglio sequenza, esegui le seguenti operazioni:
(1.) Selezionare il Nome del foglio di lavoro da copiare dal elenco a discesa Basato su Foglio di lavoro;
(2.) Seleziona l'opzione Dati all'interno della sezione Nome del foglio di lavoro basato su, quindi fai clic sul pulsante 
per selezionare i valori delle celle in base ai quali rinominare i fogli copiati.
3. Fare quindi clic sul pulsante OK: il foglio specificato verrà copiato più volte e rinominato in base ai valori delle celle selezionate in una nuova cartella di lavoro. Vedere lo screenshot:
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi