Hoppa till huvudinnehåll

Hur skapar jag sekvensarbetsblad från ett antal celler i Excel?

Om du har en rad data i ditt kalkylblad och nu vill du skapa en sekvens av kalkylblad baserat på celldata, se följande skärmdump. Självklart kan du redigera kalkylbladets namn en efter en manuellt, men om det finns flera kalkylbladsnamn behöver redigeras kommer det här att vara besvärligt och tidskrävande. Här kommer jag att prata om några snabba knep för att hjälpa dig.

doc-skapa-ark-från-lista1

Skapa sekvenskalkylblad från celler med VBA-kod

Skapa sekvensarbetsblad från cellistan med Kutools för Excel


pil blå höger bubbla Skapa sekvenskalkylblad från celler med VBA-kod

Följande VBA-kod kan hjälpa dig att lägga till några kalkylblad som namnges baserat på cellinnehållet efter befintliga kalkylblad. Gör så här:

1. Håll ner ALT + F11 och sedan öppnas Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.

VBA-kod: lägg till sekvensarbetsblad baserat på celllistan

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. Tryck sedan på F5 för att köra den här koden och sedan kommer en snabbruta att dyka upp för att du ska välja det intervall som du vill använda. Se skärmdump:

doc-skapa-ark-från-lista2

4. Och klicka sedan på OK, de kalkylblad som namnges av cellvärdena har lagts till efter det befintliga kalkylbladet. Se skärmdump:

doc-skapa-ark-från-lista3

Anmärkningar:

1. De nya kalkylbladen infogas efter det aktuella kalkylbladet.

2. Om det valda intervallet inkluderade tomma celler namnges kalkylbladet baserat på standard. Se skärmdumpar:

doc-skapa-ark-från-lista4
-1
doc-skapa-ark-från-lista5

pil blå höger bubbla Skapa sekvensarbetsblad från cellistan med Kutools för Excel

Här presenterar jag ett praktiskt verktyg-Kutools för Excel, med dess Skapa sekvensarbetsblad, kan du snabbt skapa kalkylblad med månadsnamn, dagnamn, anpassad lista och så vidare.

Kutools för Excel innehåller mer än 300 praktiska Excel-verktyg. Gratis att prova utan begränsning på 30 dagar. Hämta nu.

När du har installerat Kutools för Excel gör du följande steg:

1. Välj det intervall som du vill skapa kalkylblad baserat på.

2. Klicka Företag > Verktyg för kalkylblad > Skapa sekvensarbetsblad, se skärmdump:

doc-skapa-ark-från-lista6

3. I Skapa sekvensarbetsblad dialogrutan, välj den typ av kalkylblad som du vill skapa de nya sekvensarken och markera sedan Data inom ett intervall alternativ, se skärmdump:

doc-skapa-ark-från-lista7

4. Klicka sedan OK för att stänga dialogrutan, och en ny arbetsbok som innehåller kalkylblad namnges av den valda områdesdata har skapats. Se skärmdump:

doc-skapa-ark-från-lista8

Anmärkningar:

1. Om du väljer Blad 1 eller Blad 2 skapas de nya kalkylbladen med samma formatering som Blad 1 eller Blad 2.

2. De nya kalkylbladen skapas i en ny arbetsbok.

3. Om det valda intervallet inkluderade tomma celler namnges kalkylbladet baserat på standard. Se skärmdumpar:

doc-skapa-ark-från-lista9
-1
doc-skapa-ark-från-lista10

Klicka för att veta mer om den här funktionen Sequence Worksheets.


Relaterad artikel:

Hur lägger jag till nya kalkylblad med anpassade namn i Excel?

Bästa kontorsproduktivitetsverktyg

Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50 + Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

kte-flik 201905


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How to add bydefault table with row name and column name on sheets after creating sheets using command button. Please help.
This comment was minimized by the moderator on the site
How can the code be modified to copy a worksheet labeled "Template" and rename it to the values in the list selected in the range? I tried modifying the "worksheets.Add" code to "Worksheets("Template").Copy but it just makes copies with the worksheets labeled "Template(1)", "Template(2)", etc. Also, is there a way to put the tabs in numerical order as they are added?
This comment was minimized by the moderator on the site
Hi, Would it be possible to set-up a template for the new sheets created, instead of blank worksheets. Thanks Dave
This comment was minimized by the moderator on the site
Hi, I want to create invoices using excel and need to know whether is there a way to auto generate the second continuation page when the items on the first page exceed the A4 page layout that I have predefined? Any help is appreciated.
This comment was minimized by the moderator on the site
Could you modify the VBA code so that if the worksheet exists, it is skipped over? As it exists now, running the code a second time on the same range will create numbered worksheets. Thanks! Chris
This comment was minimized by the moderator on the site
Hello, Can I exclude blanks and automatically copy data with is behind the name? This data is generated from a pivot and I want to have all the names in different tabs with the data behind it in the layout. name1 data data data blank data data data blank Name 2 Thanks!
This comment was minimized by the moderator on the site
I need to duplicate one sheet when making all these new sheets from a list. Can you add the code for that? Thanks!
This comment was minimized by the moderator on the site
You can right click the tab and choose "move or copy" to duplicate it.
This comment was minimized by the moderator on the site
Very useful. thank you
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations