Note: The other languages of the website are Google-translated. Back to English

 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


Č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:

doc preimenuj kopirane liste 1

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:

doc preimenuj kopirane liste 2

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


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.

Kutools za Excel : z več kot 300 priročnimi dodatki za Excel, ki jih lahko brezplačno preizkusite v 30 dneh. 

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:

doc preimenuj kopirane liste 4

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:

doc preimenuj kopirane liste 5

Kliknite Brezplačen prenos Kutools za Excel zdaj!


Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Prenesite in brezplačno preskusite zdaj!

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.
zavihek kte 201905

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!
dno pisarniške mize
Komentarji (2)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Vau, to mi je prihranilo veliko časa! Hvala vam!
Ta komentar je moderator na spletnem mestu minimiziral
Ali je možno, da v to kodo dodate možnost tudi za kopiranje določenih celic. Na primer: v eni celici imam številko 1 in želim, da se ob podvojitvi List spremeni za +1. Hvala
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL