Cum să copiați foaia și să o redenumiți automat în Excel?
În Excel, cum ați putea copia o foaie de lucru și a o redenumi automat fără a introduce numele ca de obicei? În acest articol, voi vorbi despre cum să copiați o foaie o dată sau de mai multe ori și să le dau nume specifice simultan.
Copiați o foaie de lucru de mai multe ori și redenumiți-le cu nume personalizate utilizând Kutools pentru Excel
Copiați o foaie de lucru de mai multe ori și redenumiți-le cu nume de file de incrementare utilizând codul VBA
Dacă trebuie să copiați o foaie de lucru de mai multe ori și să le dați nume de serie, cum ar fi KTE-1, KTE-2, KTE-3, KTE-4 ..., următorul cod VBA vă poate face o favoare.
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.
Cod VBA: copiați o foaie de lucru de mai multe ori și redenumiți simultan:
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. Apoi apăsați F5 tasta pentru a rula acest cod și o casetă de prompt vă va reaminti câte copii ale foii de lucru curente pe care doriți să le copiați, vedeți captura de ecran:
4. Introduceți numărul de copii în dialogul pop-up, apoi faceți clic pe OK butonul, foaia dvs. de lucru curentă a fost duplicată 5 exemplare și redenumită cu numele secvenței după cum se arată în următoarea captură de ecran:
notițe: În codul de mai sus, puteți modifica textul numelui foii de lucru „KTE-”La nevoia ta.
Copiați o foaie de lucru de mai multe ori și redenumiți-le cu nume personalizate utilizând Kutools pentru Excel
Poate că codurile VBA de mai sus vă sunt dificil de aplicat, aici, voi introduce un instrument ușor- Kutools pentru Excel, Cu său Creați foi de lucru pentru secvențe utilitate, puteți realiza această sarcină fără niciun efort.
| Kutools pentru Excel : cu mai mult de 300 de programe de completare Excel la îndemână, gratuit pentru a încerca fără limitări în 30 de zile. |
După instalare Kutools pentru Excel, vă rugăm să faceți următoarele:
1. Clic Kutools Plus > Fisa de lucru > Creați foi de lucru pentru secvențe, vezi captura de ecran:
2. În Creați foi de lucru pentru secvențe căsuță de dialog:
(1.) Selectați numele foii de lucru pe care doriți să îl copiați din Foaie de lucru de bază lista verticală;
(2.) Specificați apoi numărul de foaie de lucru în care doriți să copiați Numărul de creații casetă de text;
(3.) Și apoi verificați Numere de secvență în temeiul Numele foilor pe baza secțiune;
(4.) În cele din urmă, creați numele foilor de lucru secvență în panoul din dreapta pe care doriți, consultați captura de ecran:
3. După terminarea setărilor, faceți clic pe Ok , iar foaia de lucru specifică a fost copiată de mai multe ori și redenumită pe baza secvenței create într-un nou registru de lucru, consultați captura de ecran:
Faceți clic pe Descărcare gratuită Kutools pentru Excel acum!
Demo: copiați o foaie de lucru de mai multe ori și redenumiți-le cu nume personalizate utilizând Kutools pentru Excel
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
