Za preimenovanje delovnih listov v Excelu lahko hitro dvokliknemo zavihek lista ali z desno miškino tipko kliknemo zavihek lista in izberemo ukaz Preimenuj za preimenovanje delovnih listov. To je zelo priročno za preimenovanje enega ali dveh delovnih listov v Excelu, če pa želimo v eni operaciji preimenovati več delovnih listov, kako lahko to storimo?

Uporaba ukaza Preimenuj za preimenovanje delovnih listov

Uporaba priročnega orodja za udobno preimenovanje več delovnih listov

Uporaba kode VBA za preimenovanje več delovnih listov

Uporaba ukaza Preimenuj za preimenovanje delovnih listov

Neverjetno! Uporaba učinkovitih zavihkov v Excelu, kot so Chrome, Edge, Firefox in Safari!
Prihranite 50% svojega časa in vsak dan zmanjšajte na tisoče klikov z miško!

Z Excelom lahko hitro preimenujemo delovne liste v Excelu preimenovanje ukaz v skladu z naslednjimi postopki:

Z desno miškino tipko kliknite zavihek lista, ki ga želite preimenovati, in izberite preimenovanje ukaz iz menija z desno tipko miške. Ali pa dvokliknite zavihek lista, da preimenujete delovni list. Nato vnesite novo ime in pritisnite Vnesite tipka za preimenovanje, glej posnetek zaslona:

S tem preimenovanje ukaz, lahko preimenujete samo en delovni list hkrati, za preimenovanje več delovnih listov ponovite zgornje postopke.

Uporaba priročnega orodja za udobno preimenovanje več delovnih listov

Uporaba kode VBA za preimenovanje več delovnih listov

Tukaj vam bom predstavil dve kodi VBA za preimenovanje več delovnih listov.

Koda 1. Koda VBA za preimenovanje več delovnih listov po želenem imenu hkrati

Z naslednjo kodo VBA lahko hitro preimenujete vse delovne liste trenutnega delovnega zvezka z isto predpono v imenih delovnih listov, kot so: KTE-order1, KTE-order 2 in KTE-order 3 ...

1. Kliknite na Razvojni > Visual Basicin kliknite Vstavi > Moduli v Microsoft Visual Basic aplikacijski sistem Windows.

2. Prosimo, kopirajte in prilepite naslednjo kodo v Moduli.

VBA: Preimenujte vse liste z vnosom določenega imena

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.  klik  za izvedbo kode in v pojavno okno vnesite želeno ime. glejte posnetke zaslona:

4. klik OK. Potem lahko vidite, da so vsi listi preimenovani.

2. Koda VBA za preimenovanje več delovnih listov glede na določeno vrednost celice na vsakem delovnem listu aktivnega delovnega zvezka

Z naslednjo kodo VBA bo preimenoval vse delovne liste trenutnega delovnega zvezka z uporabo vsebine določene celice. Na primer, lahko vnesete ime delovnega lista v celico A1 celotnega delovnega zvezka, nato pa se bo delovni list preimenoval v vrednost celice A1.

1.  Navedite celico, ki bo vsebovala ime delovnega lista, in vnesite ime delovnega lista. V tem primeru bom vpisal ime delovnega lista v celico A1 na vsakem delovnem listu.

2.  klik Razvojni > Visual Basicin kliknite Vstavi > Moduli v Aplikacija Microsoft Visual Basic Windows.

3.  Kopirajte in prilepite naslednjo kodo v modul.

VBA: preimenujte delovne liste z določeno vsebino celice

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.  klik  za izvedbo kode. Vse delovne liste se preimenujejo glede na vsebnost celic A1.

Predstavitev: Preimenujte več delovnih listov s programom Kutools za Excel

Sorodni članki