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 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.
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:
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
I migliori strumenti per la produttività in ufficio
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...
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!