Normál esetben a munkalapok átnevezéséhez az Excelben gyorsan duplán kattinthatunk a lap fülre, vagy jobb gombbal kattinthatunk a lap fülére, hogy a munkalapok átnevezéséhez válassza az Átnevezés parancsot. Ez nagyon hasznos egy vagy két munkalap átnevezéséhez az Excel programban, de ha egy munkán belül több munkalapot akarunk átnevezni, hogyan tehetnénk?

Az Átnevezés paranccsal átnevezheti a munkalapokat

Egy praktikus eszközzel több munkalapot kényelmesen átnevezhet

VBA kód használata több munkalap átnevezéséhez

Az Átnevezés paranccsal átnevezheti a munkalapokat

Elképesztő! Hatékony lapok használata az Excelben, például a Chrome, az Edge, a Firefox és a Safari!
Takarítsa meg idejének 50% -át, és csökkentse az egérkattintások ezreit minden nap!

A munkalapokat gyorsan átnevezhetjük az Excelben a átnevezése parancsot a következő eljárások szerint:

Kattintson a jobb gombbal az átnevezni kívánt lapfülre, és válassza a lehetőséget átnevezése parancsot a jobb egérgombbal. Vagy kattintson duplán a lap fülre a munkalap átnevezéséhez. Ezután írjon be egy új nevet, majd nyomja meg a gombot belép kulcs átnevezéséhez, lásd a képernyőképet:

Ezzel átnevezése paranccsal egyszerre csak egy munkalapot nevezhet át, több munkalap átnevezése céljából kérjük, ismételje meg a fenti műveleteket.

Egy praktikus eszközzel több munkalapot kényelmesen átnevezhet

VBA kód használata több munkalap átnevezéséhez

Itt bemutatok két VBA kódot több munkalap átnevezéséhez.

Kód 1. VBA-kód egyszerre több munkalap átnevezéséhez a kívánt névre

A következő VBA-kód használatával gyorsan átnevezheti az aktuális munkafüzet összes munkalapját ugyanazzal az előtaggal a munkalapjuk nevében, például: KTE-order1, KTE-order 2 és KTE-order 3…

1. Kattints a Fejlesztő > Visual Basic, és kattintson a gombra betétlap > Modulok a Microsoft Visual Basic alkalmazás Windows.

2. Kérjük, másolja és illessze be a következő kódot a Modulok.

VBA: Az összes lap átnevezése egy adott név megadásával

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.  Kattints  gombra a kód végrehajtásához, és írja be a kívánt nevet a felugró párbeszédpanelen. lásd a képernyőképeket:

4. Kattints OK. Ekkor láthatja, hogy az összes lapot átnevezték.

2. VBA-kód több munkalap átnevezéséhez az aktív munkafüzet egyes munkalapjain meghatározott cellaértékek szerint

A következő VBA kód használatával átnevezi az aktuális munkafüzet összes munkalapját egy adott cella tartalmának felhasználásával. Például beírhatja a munkalap nevét az egész munkafüzet A1 cellájába, és akkor a munkalapot A1 cellaaértékre nevezzük át.

1.  Kérjük, adjon meg egy cellát, amely tartalmazza a munkalap nevét az egyes munkalapokban, és írja be a munkalap nevét. Ebben a példában az egyes munkalapok A1 cellájába beírom a munkalap nevét.

2.  Kattints Fejlesztő > Visual Basic, és kattintson a gombra betétlap > Modulok a Microsoft Visual Basic alkalmazás Windows-t.

3.  Kérjük, másolja és illessze be a következő kódot a modulba.

VBA: A munkalapok átnevezése egy adott cellatartalom szerint

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.  Kattints  gombot a kód végrehajtásához. Az összes munkalap átnevezésre kerül az A1 cellatartalma alapján.

Demo: Nevezze át több munkalapot a Kutools for Excel segítségével

Kapcsolódó cikkek