Kako samodejno kopirati list in ga preimenovati v Excelu?

Kako lahko v Excelu kopirate delovni list in ga samodejno preimenujete, ne da bi vpisali ime kot običajno? V tem članku bom govoril o tem, kako kopirati list enkrat ali večkrat in jim naenkrat dati posebna imena.

Večkrat kopirajte delovni list in ga s kodo VBA preimenujte z imeni prirastkov

Večkrat kopirajte delovni list in ga s Kutools za Excel preimenujte v imena po meri

Večkrat kopirajte delovni list in ga s kodo VBA preimenujte z imeni prirastkov

Če morate večkrat kopirati delovni list in mu dati imena serij, na primer KTE-1, KTE-2, KTE-3, KTE-4…, vam lahko naslednja koda VBA naredi uslugo.

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: Večkrat kopirajte delovni list in ga preimenujte hkrati:

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. Nato pritisnite F5 tipko za zagon te kode in pozivno polje vas bo opozorilo, koliko kopij trenutnega delovnega lista želite kopirati, glejte posnetek zaslona:

4. V pojavljeno pogovorno okno vnesite število kopij in kliknite OK gumb, vaš trenutni delovni list je bil podvojen 5 kopij in preimenovan z imenom zaporedja, kot je prikazano na sliki spodaj:

Opombe: V zgornji kodi lahko spremenite besedilo imena delovnega lista »KTE-”Na vaše potrebe.

Večkrat kopirajte delovni list in ga s Kutools za Excel preimenujte v imena po meri

Morda vam je težko uporabiti zgornje kode VBA, tukaj bom predstavil enostavno orodje - Kutools za Excel, Z njegovim Ustvari delovne liste zaporedja pripomoček, lahko to nalogo dosežete brez napora.

Po namestitvi Kutools za Excel, naredite naslednje:

1. Kliknite Kutools Plus > Delovni list > Ustvari delovne liste zaporedja, glej posnetek zaslona:

2. v Ustvari delovne liste zaporedja pogovorno okno:

(1.) Izberite ime delovnega lista, ki ga želite kopirati iz Osnovni delovni list spustni seznam;

(2.) Nato določite število delovnih listov, pod katere želite kopirati Število ustvarjenih besedilno polje;

(3.) In nato preverite Zaporedne številke pod Imena listov na osnovi odsek;

(4.) Nazadnje v desnem podoknu ustvarite imena zaporednih delovnih listov, glejte posnetek zaslona:

3. Po končanih nastavitvah kliknite Ok in določen delovni list je bil večkrat kopiran in preimenovan glede na vaše ustvarjeno zaporedje v novem delovnem zvezku, glejte posnetek zaslona:

Kliknite Brezplačen prenos Kutools za Excel zdaj!

Predstavitev: Večkrat kopirajte delovni list in ga s Kutools za Excel preimenujte z imeni po meri

---

Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

• Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
• Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
• Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
• Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
• Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
• Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
• Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
• Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
• Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.

Preberite več ... Brezplačen prenos... Nakup ... 

---

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

• Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
• Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
• Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!

Preberite več ... Brezplačen prenos... Nakup ...