Vai al contenuto principale

 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


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:

doc rinominare i fogli copiati 1

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:

doc rinominare i fogli copiati 2

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


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.

Kutools for Excel : con oltre 300 utili componenti aggiuntivi di Excel, da provare gratuitamente senza limitazioni in 30 giorni. 

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:

doc rinominare i fogli copiati 4

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:

doc rinominare i fogli copiati 5

Fai clic su Scarica gratuitamente Kutools per Excel adesso!


Kutools for Excel: con più di 300 utili componenti aggiuntivi di Excel, liberi di provare senza limitazioni in 30 giorni. Scarica e prova gratuita ora!

I migliori strumenti per la produttività in ufficio

Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   Più di 50 Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

scheda kte 201905


Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro

  • 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 della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is it possible that you add in this code an option to also copy specific cells. For example: I have in one cell Number 1 and I would like that when I duplicate Sheet will change for +1. Thanks
This comment was minimized by the moderator on the site
Wow this saved a lot of time for me! Thank you!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations