For at omdøbe regneark i Excel kan vi normalt dobbeltklikke på arkfanen eller højreklikke på arkfanen for at vælge Omdøb kommando til omdøbning af regneark. Det er ret praktisk at omdøbe et eller to regneark i Excel, men hvis vi vil omdøbe flere regneark inden for en operation, hvordan kan vi gøre det?

Brug kommandoen Omdøb til at omdøbe regneark

Brug et praktisk værktøj til komfortabelt at omdøbe flere regneark

Brug af VBA-kode til omdøbning af flere regneark

Brug kommandoen Omdøb til at omdøbe regneark

Fantastiske! Brug af effektive faner i Excel som Chrome, Edge, Firefox og Safari!
Spar 50% af din tid, og reducer tusindvis af museklik for dig hver dag!

Vi kan hurtigt omdøbe regneark i Excel med Omdøb kommando i henhold til følgende procedurer:

Højreklik på den arkfane, du vil omdøbe, og vælg Omdøb kommando fra menuen Højreklik. Eller dobbeltklik på arkfanen for at omdøbe regnearket. Indtast derefter et nyt navn, og tryk derefter på Indtast nøgle til at omdøbe det, se skærmbillede:

Med dette Omdøb kommando, du kan kun omdøbe et regneark ad gangen. For at omdøbe flere regneark skal du gentage ovenstående handlinger.

Brug et praktisk værktøj til komfortabelt at omdøbe flere regneark

Brug af VBA-kode til omdøbning af flere regneark

Her vil jeg introducere dig to VBA-koder for at omdøbe flere regneark.

Kode 1. VBA-kode for at omdøbe flere regneark med det navn, du ønsker på én gang

Ved hjælp af følgende VBA-kode kan du hurtigt omdøbe alle regneark i den aktuelle projektmappe med det samme præfiks i deres regnearknavne, såsom: KTE-rækkefølge1, KTE-rækkefølge 2 og KTE-rækkefølge 3 ...

1. Klik på Udvikler > Visual Basic, og klik indsatte > Moduler i Microsoft Visual Basic-applikation Windows.

2. Kopier og indsæt følgende kode i Moduler.

VBA: Omdøb alle ark ved at indtaste et specifikt navn

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  knappen for at udføre koden, og indtast det ønskede navn i pop-out-dialogboksen. se skærmbilleder:

4. Klik OK. Derefter kan du se, at alle ark omdøbes.

2. VBA-kode for at omdøbe flere regneark efter specifik celleværdi i hvert regneark i den aktive projektmappe

Ved hjælp af følgende VBA-kode omdøber den alle regneark i den aktuelle projektmappe ved hjælp af indholdet af den specifikke celle. For eksempel kan du skrive regnearknavnet i A1-cellen i hele projektmappen, og derefter bliver regnearket omdøbt til celleværdien A1.

1.  Angiv en celle, der skal indeholde regnearknavnet i hvert regneark, og skriv regnearknavnet i det. I dette eksempel vil jeg skrive regnearknavnet i celle A1 i hvert regneark.

2.  Klik Udvikler > Visual Basic, og klik indsatte > Moduler i Microsoft Visual Basic-applikation Vinduer.

3.  Kopier og indsæt følgende kode i modulet.

VBA: Omdøb regneark med et specifikt celleindhold

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  knap for at udføre koden. Alle arkark omdøbes baseret på celleindholdet i A1.

Demo: Omdøb flere regneark med Kutools til Excel

Relaterede artikler