Come copiare il foglio e rinominare 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 dare loro nomi specifici contemporaneamente.

Copia un foglio di lavoro più volte e rinominalo con i nomi delle schede di incremento 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 i nomi delle schede di incremento utilizzando il codice VBA

Se devi copiare un foglio di lavoro più volte e dare loro nomi di serie, come KTE-1, KTE-2, KTE-3, KTE-4 ..., il seguente codice VBA può farti un favore.

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.

Codice VBA: copia un foglio di lavoro più volte e rinominalo 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. Quindi premere F5 chiave per eseguire questo codice e una finestra di messaggio ti ricorderà quante copie del foglio di lavoro corrente che desideri copiare, vedi screenshot:

4. Immettere il numero di copie nella finestra di dialogo visualizzata, quindi fare clic su OK pulsante, il foglio di lavoro corrente è stato duplicato 5 copie e rinominato con il nome della sequenza come mostrato nella seguente schermata:

Note:: Nel codice sopra, puoi cambiare il testo del nome del foglio di lavoro "KTE-"Al tuo bisogno.

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

Forse i codici VBA di cui sopra sono difficili da applicare, qui introdurrò uno strumento facile- Kutools for Excel, Con la sua Crea fogli di lavoro per sequenze utilità, è possibile eseguire questo compito senza alcuno sforzo.

Dopo l'installazione Kutools for Excel, si prega di fare come segue:

1. Clic Kutools Plus > Foglio di lavoro > Crea fogli di lavoro per sequenze, vedi screenshot:

2. Nel Crea fogli di lavoro per sequenze la finestra di dialogo:

(1.) Selezionare il nome del foglio di lavoro che si desidera copiare dal file Foglio di lavoro di base menu `A tendina;

(2.) Quindi specificare il numero di foglio di lavoro in cui si desidera copiare Il numero di creazione casella di testo;

(3.) E poi controlla Numeri di sequenza sotto il Nomi dei fogli basati su sezione;

(4.) Alla fine, crea i nomi dei fogli di lavoro della sequenza nel riquadro di destra che desideri, vedi screenshot:

3. Dopo aver terminato le impostazioni, fare clic su Ok pulsante e il foglio di lavoro specifico è stato copiato più volte e rinominato in base alla sequenza creata in una nuova cartella di lavoro, vedi screenshot:

Fai clic su Scarica gratuitamente Kutools per Excel adesso!

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