În mod normal, pentru a redenumi foile de lucru în Excel, putem face dublu clic rapid pe fila de foaie sau faceți clic dreapta pe fila de foaie pentru a alege comanda Redenumire pentru redenumirea foilor de lucru. Este destul de util să redenumiți una sau două foi de lucru în Excel, dar dacă dorim să redenumiți mai multe foi de lucru într-o singură operație, cum putem face?

Folosind comanda Rename pentru a redenumi foile de lucru

Utilizarea unui instrument la îndemână pentru a redenumi confortabil mai multe foi de lucru

Utilizarea codului VBA pentru redenumirea mai multor foi de lucru

Folosind comanda Rename pentru a redenumi foile de lucru

Uimitor! Utilizarea filelor eficiente în Excel, cum ar fi Chrome, Edge, Firefox și Safari!
Economisiți 50% din timp și reduceți mii de clicuri de mouse pentru dvs. în fiecare zi!

Putem redenumi rapid foile de lucru în Excel cu Redenumiți comandă conform următoarelor proceduri:

Faceți clic dreapta pe fila de foaie pe care doriți să o redenumiți și alegeți Redenumiți din meniul Faceți clic dreapta. Sau faceți dublu clic pe fila foaie pentru a redenumi foaia de lucru. Apoi tastați un nume nou, apoi apăsați Intrați tasta pentru a o redenumi, vezi captura de ecran:

Cu acest Redenumiți comanda, puteți redenumi o singură foaie de lucru odată, în scopul redenumirii mai multor foi de lucru, vă rugăm să repetați operațiile de mai sus.

Utilizarea unui instrument la îndemână pentru a redenumi confortabil mai multe foi de lucru

Utilizarea codului VBA pentru redenumirea mai multor foi de lucru

Aici vă voi prezenta două coduri VBA pentru a redenumi mai multe foi de lucru.

Cod 1. Cod VBA pentru a redenumi mai multe foi de lucru după numele dorit simultan

Utilizând următorul cod VBA, puteți redenumi rapid toate foile de lucru ale registrului de lucru curent cu același prefix în numele foilor de lucru, cum ar fi: KTE-order1, KTE-order 2 și KTE-order 3 ...

1. Faceţi clic pe Dezvoltator > Visual Basic, și faceți clic pe Insera > Module în Aplicația Microsoft Visual Basic Windows.

2. Vă rugăm să copiați și să lipiți următorul cod în Module.

VBA: Redenumiți toate foile introducând un anumit nume

Sub ChangeWorkSheetName()
'Updateby20140624
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
newName = Application.InputBox("Name", xTitleId, "", Type:=2)
For i = 1 To Application.Sheets.Count
    Application.Sheets(i).Name = newName & i
Next
End Sub

3.  Clic  pentru a executa codul și introduceți numele dorit în caseta de dialog pop-out.

4. Clic OK. Apoi, puteți vedea că toate foile sunt redenumite.

2. Cod VBA pentru a redenumi mai multe foi de lucru după valoarea specifică a celulei din fiecare foaie de lucru a registrului de lucru activ

Folosind următorul cod VBA, va redenumi toate foile de lucru ale registrului de lucru curent utilizând conținutul unei celule specifice. De exemplu, puteți tasta numele foii de lucru în celula A1 a întregului registru de lucru, iar apoi foaia de lucru va fi redenumită ca valoare a celulei A1.

1.  Vă rugăm să specificați o celulă pentru a conține numele foii de lucru în fiecare foaie de lucru și tastați numele foii de lucru în ea. În acest exemplu, voi tasta numele foii de lucru în celula A1 din fiecare foaie de lucru.

2.  Clic Dezvoltator > Visual Basic, și faceți clic pe Insera > Module în Aplicația Microsoft Visual Basic Windows.

3.  Vă rugăm să copiați și să lipiți următorul cod în modul.

VBA: Redenumiți foile de lucru cu un anumit conținut de celulă

Sub RenameTabs()
'Updateby20140624
 For x = 1 To Sheets.Count
 If Worksheets(x).Range("A1").Value <> "" Then
 Sheets(x).Name = Worksheets(x).Range("A1").Value
 End If
 Next
 End Sub

4.  Clic  pentru a executa codul. Toate foile de calcul sunt redenumite pe baza conținutului celulei A1.

Demo: Redenumiți mai multe foi de lucru cu Kutools pentru Excel

Articole pe aceeași temă