Hogyan készíthetünk szekvencia munkalapokat az Excel cellatartományából?

Ha a munkalapon van egy adattartomány, és most szeretne létrehozni egy munkalapsorozatot a cellaadatok alapján, lásd a következő képernyőképet Természetesen a munkalap nevét egyesével manuálisan is szerkesztheti, de ha több munkalap nevét kell szerkeszteni, akkor ez problémás és időigényes lesz. Itt beszélek néhány gyors trükkről, amelyek segítenek.

Készítsen szekvencia munkalapokat a VBA kóddal rendelkező cellák listájából

Hozzon létre szekvencia munkalapokat a cellák listájából a Kutools for Excel segítségével

Készítsen szekvencia munkalapokat a VBA kóddal rendelkező cellák listájából

A következő VBA-kód segíthet néhány olyan munkalap hozzáadásában, amelyek a cellatartalom alapján vannak elnevezve a meglévő munkalapok után. Kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 gombokat, majd kinyitja a Microsoft Visual Basic for Applications ablak.

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

VBA kód: adjon hozzá szekvencia munkalapokat a cellák listája alapján

Sub CreateWorkSheetByRange()
'Update 20130829
Dim WorkRng As Range
Dim Ws As Worksheet
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
arr = WorkRng.Value
Application.ScreenUpdating = False
For i = 1 To UBound(arr, 1)
    For j = 1 To UBound(arr, 2)
        Set Ws = Worksheets.Add(after:=Application.ActiveSheet)
        Ws.Name = arr(i, j)
    Next
Next
Application.ScreenUpdating = True
End Sub

3. Ezután nyomja meg a gombot F5 gombot a kód futtatásához, majd megjelenik egy felszólító mező, ahol kiválaszthatja a használni kívánt tartományt. Lásd a képernyőképet:

4. Kattintson a gombra OK, a cellaértékek által megnevezett munkalapok a meglévő munkalap után kerültek hozzá. Lásd a képernyőképet:

Megjegyzések:

1. Az új munkalapok az aktuális munkalap után kerülnek beillesztésre.

2. Ha a kiválasztott tartomány üres cellákat tartalmazott, akkor a munkalapokat alapértelmezés szerint nevezik el. Képernyőképek megtekintése:

Hozzon létre szekvencia munkalapokat a cellák listájából a Kutools for Excel segítségével

Itt bemutatok egy praktikus eszközt-Kutools az Excel számára, Annak Készítsen szekvencia munkalapokat, gyorsan létrehozhat munkalapokat hónapnévvel, napnévvel, egyéni listával és így tovább.

Kutools az Excel számára több mint 300 praktikus Excel eszközt tartalmaz. 30 nap alatt szabadon kipróbálható korlátozás nélkül. Szerezd meg most.

A Kutools for Excel telepítése után kövesse az alábbi lépéseket:

1. Válassza ki azt a tartományt, amely alapján munkalapokat szeretne létrehozni.

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

3. Az Készítsen szekvencia munkalapokat párbeszédpanelen válassza ki az új sorrendű munkalapokat létrehozni kívánt munkalap típusát, majd ellenőrizze Adatok egy tartományban opció, lásd a képernyőképet:

4. Ezután kattintson OK a párbeszédpanel bezárásához, és létrehozott egy új munkafüzetet, amely tartalmazza a munkalapokat a kiválasztott tartományadatokkal. Lásd a képernyőképet:

Megjegyzések:

1. Ha az 1. vagy 2. lapot választja, akkor az új munkalapok ugyanolyan formátumúak lesznek, mint az 1. vagy a 2. lap.

2. Az új munkalapok egy új munkafüzetben készülnek.

3. Ha a kiválasztott tartomány üres cellákat tartalmazott, akkor a munkalapokat alapértelmezés szerint nevezik el. Képernyőképek megtekintése:

Kattintson, ha többet szeretne megtudni erről a Sorrend munkalapok létrehozása funkcióról.

Kapcsolódó cikk:

Hogyan adhatunk hozzá új munkalapokat testreszabott nevekkel az Excel programban?