Normalt för att byta namn på kalkylblad i Excel kan vi snabbt dubbelklicka på arkfliken eller högerklicka på arkfliken för att välja Kommandot Byt namn för att byta namn på kalkylblad. Det är ganska praktiskt att byta namn på ett eller två kalkylblad i Excel, men om vi vill byta namn på flera kalkylblad inom en operation, hur kan vi göra det?

Använd kommandot Byt namn för att byta namn på kalkylblad

Använd ett praktiskt verktyg för att bekvämt byta namn på flera kalkylblad

Använda VBA-kod för att byta namn på flera kalkylblad

Använd kommandot Byt namn för att byta namn på kalkylblad

Fantastisk! Använda effektiva flikar i Excel som Chrome, Edge, Firefox och Safari!
Spara 50% av din tid och minska tusentals musklick åt dig varje dag!

Vi kan snabbt byta namn på kalkylblad i Excel med Byt namn kommando enligt följande procedurer:

Högerklicka på arkfliken du vill byta namn på och välj Byt namn kommandot från högerklickmenyn. Eller dubbelklicka på arkfliken för att byta namn på kalkylbladet. Skriv sedan ett nytt namn och tryck sedan på ange nyckel för att byta namn på den, se skärmdump:

Med denna Byt namn kommando, du kan bara byta namn på ett kalkylblad åt gången, för att byta namn på flera kalkylblad, upprepa ovanstående åtgärder.

Använd ett praktiskt verktyg för att bekvämt byta namn på flera kalkylblad

Använda VBA-kod för att byta namn på flera kalkylblad

Här presenterar jag dig två VBA-koder för att byta namn på flera kalkylblad.

Kod 1. VBA-kod för att byta namn på flera kalkylblad med det namn du vill ha samtidigt

Med följande VBA-kod kan du snabbt byta namn på alla kalkylblad i den aktuella arbetsboken med samma prefix i deras kalkylnamn, till exempel: KTE-order1, KTE-order 2 och KTE-order 3 ...

1. Klicka på Utvecklare > Visual Basic, och klicka Insert > Modulerna i Microsoft Visual Basic Application Windows.

2. Kopiera och klistra in följande kod i Modulerna.

VBA: Byt namn på alla ark genom att ange ett specifikt namn

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.  Klicka  för att köra koden och ange namnet du vill ha i popup-dialogrutan. se skärmdumpar:

4. Klicka OK. Då kan du se att alla ark byter namn.

2. VBA-kod för att byta namn på flera kalkylblad efter specifikt cellvärde i varje kalkylblad i den aktiva arbetsboken

Med följande VBA-kod kommer det att byta namn på alla kalkylblad i aktuell arbetsbok med hjälp av innehållet i en specifik cell. Du kan till exempel skriva kalkylbladets namn i A1-cellen i hela arbetsboken och sedan byts namn på kalkylbladet till cellvärdet A1.

1.  Ange en cell som ska innehålla kalkylbladets namn i varje kalkylblad och skriv kalkylbladets namn i det. I det här exemplet skriver jag kalkylbladets namn i cell A1 i varje kalkylblad.

2.  Klicka Utvecklare > Visual Basic, och klicka Insert > Modulerna i Microsoft Visual Basic-applikation Windows.

3.  Kopiera och klistra in följande kod i modulen.

VBA: Byt namn på kalkylblad med ett specifikt cellinnehåll

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.  Klicka  för att köra koden. Alla kalkylblad döps om baserat på cellinnehållet i A1.

Demo: Byt namn på flera kalkylblad med Kutools för Excel

Relaterade artiklar