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 de file de incrementare utilizând codul VBA

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.

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 Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

• reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
• Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
• Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
• Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
• Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
• Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
• Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
• Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
• Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.

Citeşte mai mult ... Descărcare gratuită... Cumpărare... 

---

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!

Citeşte mai mult ... Descărcare gratuită... Cumpărare...