Hogyan hozhatunk létre több munkalapot a cellaértékek listájából?

Vannak-e gyors vagy egyszerű módszerek arra, hogy több munkalapot hozzunk létre az Excel cellaértékeinek listája alapján? Ebben a cikkben néhány jó trükkről fogok beszélni ennek a feladatnak a megoldására.

Hozzon létre több munkalapot a VBA kóddal ellátott cellaértékek listájából

Hozzon létre több munkalapot a cellaértékek listájából a Kutools for Excel segítségével

Hozzon létre több munkalapot a VBA kóddal ellátott cellaértékek listájából

Több új munkalap gyors létrehozásához, amelyek a cellák értékeinek listájával neveztek el, a következő VBA-kód segíthet.

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA-kód: Hozzon létre több munkalapot a cellák listájából:

Sub AddSheets()
'Updateby Extendoffice
    Dim xRg As Excel.Range
    Dim wSh As Excel.Worksheet
    Dim wBk As Excel.Workbook
    Set wSh = ActiveSheet
    Set wBk = ActiveWorkbook
    Application.ScreenUpdating = False
    For Each xRg In wSh.Range("A1:A7")
        With wBk
            .Sheets.Add after:=.Sheets(.Sheets.Count)
            On Error Resume Next
            ActiveSheet.Name = xRg.Value
            If Err.Number = 1004 Then
              Debug.Print xRg.Value & " already used as a sheet name"
            End If
            On Error GoTo 0
        End With
    Next xRg
    Application.ScreenUpdating = True
End Sub

Megjegyzések: A fenti kódban A1: A7 az a cellatartomány, amely alapján lapokat szeretne létrehozni, kérjük, változtassa meg igénye szerint.

3. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és az új munkalapok elkészültek az aktuális munkafüzet összes lapja után, lásd a képernyőképet:

Hozzon létre több munkalapot a cellaértékek listájából a Kutools for Excel segítségével

Ha nem jártas a fenti kód használatában, itt van egy praktikus eszköz-Kutools az Excel számára, Annak Készítsen szekvencia munkalapokat függvényben a munkalapok egy új munkafüzet cellájának értékei alapján jönnek létre.

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. Kattints Kutools Plus > Munkalap > Készítsen szekvencia munkalapokat, lásd a képernyőképet:

2. Az Készítsen szekvencia munkalapokat párbeszédablak:

(1.) Válasszon ki egy munkalapot, amely alapján sorozatos munkalapokat szeretne létrehozni;

(2.) Ezután válassza ki dátum tartomány tartományban a Lapnevek alapján listamezőbe, majd kattintson a gombra gombbal válassza ki a használni kívánt cellaértékeket.

3. Kattintson a gombra Ok gombra, a munkalapok elkészültek a cellaértékek nevével egy új munkafüzetben, lásd a képernyőképet:

Kattintson a Letöltés és ingyenes próba Kutools for Excel gombra most!