Preskoči na glavno vsebino

 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 pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

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!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Your code is what I have been looking for, however the cell contents that I wish to use to rename the sheet is a date. For example, on the first sheet, cell A2 displays a date as Monday 3 April 2017. What I would like to happen is when the next sheet is created by the macro would be to take the date from A2, add 7 to display, for example, "Monday 10 July, 2017" but rename the new sheet in the dd-mm-yy format, so "10-07-17". Is this possible? By the way, I have Kutools for Excel, but this spreasheet will be a blood pressure record for my dad who doesnt have Kutools. Thanks in advance!
This comment was minimized by the moderator on the site
The code below works great. My question is, is it possible to automatically open the new worksheet (based on A1) and delete the content from the previous sheet as it is being used as the template. 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 "" Then ActiveSheet.Name = wh.Range("A1").Value End If wh.Activate End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations