Salt la conținutul principal

 Cum să copiați foaia și să o redenumiți pe baza valorii celulei din Excel?

În mod normal, puteți aplica Mutați sau copiați pentru a copia o foaie de lucru, apoi tastați manual un nou nume pentru copie după cum aveți nevoie. Dar, ați încercat vreodată să redenumiți foaia pe baza unei valori de celulă după ce ați copiat foaia de lucru? În acest articol, voi vorbi despre cum să redenumiți foaia de lucru pe baza valorii celulei automat atunci când faceți o copie.

Copiați o foaie de lucru și redenumiți pe baza valorii celulei cu codul VBA

Copiați o foaie de lucru de mai multe ori și redenumiți pe baza valorilor celulei cu Kutools pentru Excel


Copiați o foaie de lucru și redenumiți pe baza valorii celulei cu codul VBA

Următorul cod VBA vă poate ajuta să copiați o foaie de lucru și să o redenumiți automat cu o anumită valoare de celulă, vă rugăm să procedați astfel:

1. Activați foaia de lucru pe care doriți să o copiați, apoi ț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 și redenumiți cu o valoare de celulă:

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. Și apoi apăsați F5 cheie pentru a rula acest cod, iar foaia dvs. de lucru curentă a fost copiată în registrul de lucru curent după toate foile de lucru și este redenumită cu valoarea celulei pe care ați specificat-o, vedeți captura de ecran:

doc copiați raname după valoarea 1

notițe: În codul de mai sus, referința celulei A1 este valoarea celulei pe care doriți să o redenumiți pentru noua foaie copiată, o puteți modifica în funcție de nevoile dvs.


Copiați o foaie de lucru de mai multe ori și redenumiți pe baza valorilor celulei cu Kutools pentru Excel

Codul de mai sus poate redenumi doar cu o singură valoare de celulă, dacă trebuie să copiați foaia de mai multe ori și să le redenumiți pe baza unei liste de valori ale celulei, Kutools pentru Excel'S Creați foaia de lucru secvență vă poate ajuta să terminați această sarcină cât de repede puteți.

Kutools pentru Excel : cu mai mult de 300 de programe de completare Excel la îndemână, gratuit pentru a încerca fără limitări în 30 de zile. 

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:

doc copiați raname după valoarea 3

2. În Creați foaia de lucru secvență caseta de dialog, efectuați următoarele operații:

(1.) Selectați numele foii de lucru pe care doriți să îl copiați din Foaie de lucru de bază lista verticală;

(2.) Selectați opțiunea Date dintr-un interval sub Numele foilor pe baza secțiune și faceți clic pe doc copiați raname după valoarea 5 pentru a selecta valorile celulei pe care doriți să le redenumiți foile de lucru copiate.

Descărcați Kutools pentru Excel acum!

3. Apoi apasa Ok butonul și foaia de lucru specifică au fost copiate de mai multe ori și redenumite cu valorile celulei pe care le-ați selectat într-un nou registru de lucru, consultați captura de ecran:

doc copiați raname după valoarea 4

Descărcați și proba gratuită Kutools pentru Excel acum!


Demo: copiați o foaie de lucru de mai multe ori și redenumiți pe baza valorilor celulei cu Kutools pentru Excel

Kutools pentru Excel: cu mai mult de 300 de programe de completare Excel la îndemână, încercați fără limitări în 30 de zile. Descărcați și proba gratuită acum!

Cele mai bune instrumente de productivitate de birou

Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

fila kte 201905


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!
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