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

 Kako kopirati list in ga preimenovati na podlagi vrednosti celice v Excelu?

Običajno lahko uporabite Premakni ali Kopiraj funkcijo za kopiranje delovnega lista in nato ročno vnesite novo ime za kopijo, kot jo potrebujete. Ampak, ali ste kdaj poskusili preimenovati list na podlagi vrednosti celice po kopiranju delovnega lista? V tem članku bom govoril o tem, kako samodejno preimenovati delovni list na podlagi vrednosti celice, ko naredite kopijo.

Kopirajte delovni list in ga preimenujte glede na vrednost celice s kodo VBA

Večkrat kopirajte delovni list in ga preimenujte na podlagi vrednosti celic s programom Kutools za Excel


Kopirajte delovni list in ga preimenujte glede na vrednost celice s kodo VBA

Naslednja koda VBA vam lahko pomaga kopirati delovni list in ga samodejno preimenovati z določeno vrednostjo celice. Naredite to:

1. Aktivirajte delovni list, ki ga želite kopirati, in pridržite ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

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

Koda VBA: Kopirajte delovni list in ga preimenujte z vrednostjo celice:

Sub Copyrenameworksheet()
'Updateby Extendoffice
    Dim ws As Worksheet
    Set wh = Worksheets(ActiveSheet.Name)
    ActiveSheet.Copy After:=Worksheets(Sheets.Count)
    If wh.Range("A1").Value <> "" Then
    ActiveSheet.Name = wh.Range("A1").Value
    End If
    wh.Activate
End Sub

3. In nato pritisnite F5 ključ za zagon te kode in vaš trenutni delovni list je po vseh delovnih listih kopiran v trenutni delovni zvezek in je preimenovan z vrednostjo celice, ki ste jo določili, glejte sliko zaslona:

doc kopiraj raname po vrednosti 1

Opombe: V zgornji kodi sklic na celico A1 je vrednost celice, ki jo želite preimenovati za novi kopirani list, jo lahko spremenite po svoji potrebi.


Večkrat kopirajte delovni list in ga preimenujte na podlagi vrednosti celic s programom Kutools za Excel

Zgornjo kodo lahko preimenujete samo z eno vrednostjo celice, če morate list večkrat kopirati in jih preimenovati na podlagi seznama vrednosti celic, Kutools za ExcelJe Ustvari delovni list zaporedja vam lahko pomaga, da to nalogo končate čim prej.

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:

doc kopiraj raname po vrednosti 3

2. v Ustvari delovni list zaporedja v pogovornem oknu izvedite naslednje postopke:

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

(2.) Pod možnostjo izberite možnost Podatki v obsegu Imena listov na osnovi in kliknite doc kopiraj raname po vrednosti 5 , da izberete vrednosti celic, na podlagi katerih želite preimenovati kopirane delovne liste.

Prenesite Kutools za Excel zdaj!

3. Nato kliknite Ok in določen delovni list je bil večkrat kopiran in preimenovan z vrednostmi celic, ki ste jih izbrali v novem delovnem zvezku, glejte posnetek zaslona:

doc kopiraj raname po vrednosti 4

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!


Predstavitev: večkrat kopirajte delovni list in ga preimenujte na podlagi vrednosti celic s programom Kutools za Excel

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
Spodnja koda deluje odlično. Moje vprašanje je, ali je mogoče samodejno odpreti nov delovni list (na podlagi A1) in izbrisati vsebino s prejšnjega lista, saj se uporablja kot predloga. Sub Copyrenameworksheet() 'Updateby Extendoffice 20160704 Dim ws As Worksheet Set wh = Worksheets(ActiveSheet.Name) ActiveSheet.Copy After:=Worksheets(Sheets.Count) If wh.Range("A1").Value "" Potem ActiveSheet.Name = wh.Range("A1 ").Value End Če wh.Activate End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Vaša koda je tisto, kar sem iskal, vendar je vsebina celice, ki jo želim uporabiti za preimenovanje lista, datum. Na primer, na prvem listu je v celici A2 prikazan datum kot ponedeljek, 3. april 2017. Želel bi, da se zgodi, ko bi naslednji list ustvaril makro, da bi vzel datum iz A2, dodal 7 za prikaz, za na primer "ponedeljek, 10. julij 2017", vendar preimenujte nov list v formatu dd-mm-yy, torej "10-07-17". Ali je to možno? Mimogrede, imam Kutools za Excel, vendar bo ta preglednica zapis krvnega tlaka za mojega očeta, ki nima Kutoola. Hvala vnaprej!
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