Come copiare un foglio e rinominarlo automaticamente in Excel?

In Excel, come potresti copiare un foglio di lavoro e rinominarlo automaticamente senza digitare il nome come al solito? In questo articolo, parlerò di come copiare un foglio una o più volte e assegnargli nomi specifici immediatamente.

Copia un foglio di lavoro più volte e rinominalo con nomi di tab incrementali utilizzando il codice VBA

Copia un foglio di lavoro più volte e rinominalo con nomi personalizzati utilizzando Kutools per Excel

Copia un foglio di lavoro più volte e rinominalo con nomi di tab incrementali utilizzando il codice VBA

Se hai bisogno di copiare un foglio di lavoro più volte e assegnargli nomi in serie, come KTE-1, KTE-2, KTE-3, KTE-4…, il seguente codice VBA può esserti d'aiuto.

1. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo, e incolla il seguente codice nella finestra del Modulo.

Codice VBA: Copia un foglio di lavoro più volte e rinomina tutto in una volta:

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. Quindi premi il tasto F5 per eseguire questo codice, e una finestra di dialogo ti chiederà quante copie del foglio di lavoro corrente desideri copiare, vedi screenshot:

4. Inserisci il numero di copie nella finestra di dialogo visualizzata, quindi clicca sul pulsante OK, il tuo foglio di lavoro corrente sarà duplicato 5 volte e rinominato con nomi sequenziali come mostrato nello screenshot seguente:

Nota: Nel codice sopra, puoi cambiare il testo del nome del foglio di lavoro “KTE-” con quello che ti serve.

Copia un foglio di lavoro più volte e rinominalo con nomi personalizzati utilizzando Kutools per Excel

Forse i codici VBA sopra sono difficili da applicare per te, qui ti presenterò uno strumento facile - Kutools per Excel, con la sua funzione Crea Fogli di Lavoro Sequenziali, puoi svolgere questo compito senza alcuno sforzo.

Dopo aver installato Kutools per Excel, procedi come segue:

1. Clicca su Kutools Plus > Foglio di lavoro > Crea Fogli di Lavoro Sequenziali, vedi screenshot:

2. Nella finestra di dialogo Crea Fogli di Lavoro Sequenziali:

(1.) Seleziona il nome del foglio di lavoro che vuoi copiare dall'elenco a discesa Basato su Foglio di lavoro;

(2.) Poi specifica il numero di fogli di lavoro che vuoi copiare sotto la casella di testo Numero di fogli di lavoro da creare;

(3.) E poi seleziona Numeri Consecutivi sotto la sezione Nome del foglio di lavoro basato su;

(4.) Infine, crea i nomi dei fogli di lavoro sequenziali nel riquadro a destra come desideri, vedi screenshot:

3. Dopo aver completato le impostazioni, clicca sul pulsante Ok, e il foglio di lavoro specifico sarà copiato più volte e rinominato in base alla tua sequenza creata in un nuovo workbook, vedi screenshot:

Clicca per scaricare gratuitamente Kutools per Excel Ora!

Demo: Copia un foglio di lavoro più volte e rinominalo con nomi personalizzati utilizzando Kutools per Excel