Hogyan nevezhetjük át a munkalapokat az Excel cellaértékei alapján?

A munkalapok átnevezését általában az Excel munkánk során alkalmazzák, de megpróbálta már átnevezni a munkalapokat a cellák értéke alapján? Természetesen átnevezheti a munkalapokat manuálisan, de itt ez az oktatóanyag bemutat néhány trükköt, amelyekkel gyorsan átnevezhet több munkalapot a cellák értéke alapján, ami megtakaríthatja a munkaidejét.

A munkalapok átnevezése egy adott cella alapján a VBA-val

Munkalapok átnevezése egy adott cella alapján Több munkalap átnevezése

A munkalapok átnevezése a cellatartalom tartománya alapján a Több munkalap átnevezése segítségével

A munkalapok átnevezése egy adott cella alapján a VBA-val

A VBA alatt a relatív munkalapot átnevezheti egy adott cella alapján.

1. Válassza ki azt a cellát, amely alapján át akarja nevezni a munkalapot, ebben az esetben válassza az A1 cellát. Lásd a képernyőképet:

2. nyomja meg Alt + F11 gombokat a megnyitáshoz Microsoft Visual Basic for Applications ablak.

3. kettyenés betétlap > Modulok, majd illessze be a VBA kód alá az újba Modulok ablak.

VBA: A munkalapok átnevezése egy adott cellaértékek alapján.

Sub RenameSheet()
'UpdatebyKutools20191129
Dim xWs As Worksheet
Dim xRngAddress As String
Dim xName As String
Dim xSSh As Worksheet
Dim xInt As Integer
xRngAddress = Application.ActiveCell.Address
On Error Resume Next
Application.ScreenUpdating = False
For Each xWs In Application.ActiveWorkbook.Sheets
    xName = xWs.Range(xRngAddress).Value
    If xName <> "" Then
        xInt = 0
        Set xSSh = Nothing
        Set xSSh = Worksheets(xName)
        While Not (xSSh Is Nothing)
            Set xSSh = Nothing
            Set xSSh = Worksheets(xName & "(" & xInt & ")")
            xInt = xInt + 1
        Wend
        If xInt = 0 Then
            xWs.Name = xName
        Else
            If xWs.Name <> xName Then
                xWs.Name = xName & "(" & xInt & ")"
            End If
        End If
    End If
Next
Application.ScreenUpdating = True
End Sub

4. nyomja meg F5 kulcs a VBA kód futtatásához. Ezután az összes munkalapot minden relatív A1 cellaérték átnevezte.

Munkalapok átnevezése egy adott cella alapján Több munkalap átnevezése

Ha van Kutools az Excel számára, akkor nem kell mentenie a VBA kódot, használhatja a Több munkalap átnevezése funkcióval gyorsan átnevezheti az összes munkalapot a relatív cellák alapján.

Után ingyenes telepítés Kutools for Excel, kérjük, tegye a következőket:

1. Engedélyezze azt a munkafüzetet, amelynek át akarja nevezni a munkalapok nevét.

2. kettyenés Kutools Plus > Munkalap > Munkalapok átnevezése. Lásd a képernyőképet:

3. Ezután a felbukkanó párbeszédpanelen ellenőrizze az átnevezni kívánt lapokat munkalapok ablaktáblát, és válassza ki az egyik lehetőséget Átnevezheti az opciót szükséged van, itt lecserélem a lap nevét, majd ellenőrizem A munkalapok átnevezése adott cellával, és válassza ki az átnevezni kívánt cellát. Lásd a képernyőképet:

4. kettyenés Ok. Most a lapokat átnevezik meghatározott cellatartalommal.

De néha több munkalap átnevezésére van szükség a cellaértékek tartománya alapján, amint az az alábbi képernyőképen látható. alábbi módszerrel.

A munkalapok átnevezése a cellatartalom tartománya alapján a Több munkalap átnevezése segítségével

A Több munkalap átnevezése of Kutools az Excel számára, átnevezheti a lapokat a kiválasztott tartomány alapján is.

Után ingyenes telepítés Kutools for Excel, kérjük, tegye a következőket:

1. kettyenés Kutools Plus > Munkalap > Munkalapok átnevezése. Lásd a képernyőképet:

2. Ban,-ben Több munkalap átnevezése párbeszédpanelen a következőképpen kell megadnia a beállításokat:

(1) Válassza ki az átnevezni kívánt munkalapokat Munkalapok listája;

(2) Ellenőrizze Meghatározott tartományból opciót, és válassza ki az átnevezni kívánt cellaértékeket;

(3) Adja meg a Opciók átnevezése, ellenőrizheted Helyezze be az eredeti lap neve elé, Beszúrás az eredeti lap neve utánvagy Cserélje le az eredeti lap nevét, és megnézheti a megfelelő eredményt a párbeszédpanelen.

3. kettyenés Ok, és akkor láthatja, hogy az összes kiválasztott munkalap át lett nevezve a megadott cellaértékek alapján.

Cserélje le az eredeti lap nevét

Helyezze be az eredeti lap neve elé

Beszúrás az eredeti lap neve után

A Munkalapok átnevezése segédprogrammal átnevezheti a munkalapokat is egy adott előtaggal vagy utótaggal. Kattintson ide, ha többet szeretne megtudni a Több munkalap átnevezéséről.

  Több lap átnevezése a cellaértékek alapján