Come copiare un foglio in Excel e rinominarlo automaticamente?
In Excel, come si può copiare un foglio di lavoro e rinominarlo automaticamente, evitando di digitare manualmente il nome come di consueto? In questo articolo ti mostrerò come copiare un foglio una o più volte e assegnare contemporaneamente nomi specifici a ciascuna copia.
Copiare un foglio di lavoro più volte e rinominarlo con nomi personalizzati utilizzando Kutools per Excel
Copiare un foglio di lavoro più volte e rinominarlo con nomi di scheda incrementali utilizzando codice VBA
Se devi copiare un foglio di lavoro più volte e assegnargli una serie di nomi, ad esempio KTE-1, KTE-2, KTE-3, KTE-4…, il seguente codice VBA ti sarà di grande aiuto.
1. Tenere premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.
2. Fare clic su Inserisci > Modulo, quindi incollare il codice seguente nella finestra del Modulo.
Codice VBA: Copiare un foglio di lavoro più volte e rinominarlo contemporaneamente:
Sub Create()
'Updateby Extendoffice
Dim I As Long
Dim xNumber As Integer
Dim xName As String
Dim xActiveSheet As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
Set xActiveSheet = ActiveSheet
xNumber = InputBox("Enter number of times to copy the current sheet")
For I = 1 To xNumber
xName = ActiveSheet.Name
xActiveSheet.Copy After:=ActiveWorkbook.Sheets(xName)
ActiveSheet.Name = "KTE-" & I
Next
xActiveSheet.Activate
Application.ScreenUpdating = True
End Sub
3. Premere quindi il tasto F5 per eseguire il codice: apparirà una finestra di dialogo che chiederà quante copie del foglio Foglio di lavoro corrente si desiderano creare, come mostrato nello screenshot:
4. Inserisci il numero di copie nella finestra di dialogo visualizzata, quindi fai clic sul pulsante OK; il foglio di lavoro corrente verrà duplicato in 5 copie e rinominato con nomi sequenziali, come illustrato nello screenshot seguente:
Nota: nel codice riportato sopra, puoi personalizzare il testo «KTE-» in base alle tue esigenze.
Copiare un foglio di lavoro più volte e rinominarlo con nomi personalizzati utilizzando Kutools per Excel
Forse i codici VBA indicati sopra ti sembrano difficili da applicare. In tal caso, ti presentiamo uno strumento semplicissimo: Kutools per Excel. Grazie alla sua funzionalità Crea fogli di lavoro sequenziali, potrai eseguire questa operazione senza il minimo sforzo.
Dopo aver installato Kutools per Excel, procedere come segue:
1. Fare clic su KUTOOLS PLUS > Foglio di lavoro > Crea fogli di lavoro sequenziali, come mostrato nello screenshot:
2. Nella finestra di dialogo Crea fogli di lavoro sequenziali:
(1.) Selezionare il foglio Nome del foglio di lavoro da copiare dall’elenco a discesa Basato su Foglio di lavoro;
(2.) Specificare quindi il numero di fogli di lavoro da copiare nella casella di testo Numero di fogli di lavoro da creare;
(3.) Selezionare quindi l’opzione Numeri consecutivinella sezione Nome del foglio di lavoro basato su;
(4.) Infine, creare la sequenza di Nome del foglio di lavoro desiderata nel riquadro a destra, come mostrato nello screenshot:
3.Al termine delle impostazioni, fare clic sul pulsante Ok; il foglio specificato verrà copiato più volte e rinominato in base alla sequenza creata, il tutto in un’unica Nuovo workbook, come illustrato nello screenshot:
Scarica gratuitamente Kutools per Excel ora!
Demo: Copiare un foglio di lavoro più volte e rinominarlo con nomi personalizzati utilizzando Kutools per Excel
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