Hvordan oprettes flere regneark fra en liste over celleværdier?

Er der nogen hurtige eller nemme metoder til at oprette flere regneark baseret på en liste over celleværdier i Excel? I denne artikel vil jeg tale om nogle gode tricks til at løse dette job.

Opret flere regneark fra en liste over celleværdier med VBA-kode

Opret flere regneark fra en liste over celleværdier med Kutools til Excel

Opret flere regneark fra en liste over celleværdier med VBA-kode

For hurtigt at oprette flere nye regneark, der er navngivet med en liste over celleværdier, kan følgende VBA-kode hjælpe dig.

1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.

VBA-kode: Opret flere regneark fra en liste over celler:

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

Bemærk: I ovenstående kode, A1: A7 er det celleområde, som du vil oprette ark baseret på, skal du ændre det til dit behov.

3. Tryk derefter på F5 nøgle til at køre denne kode, og de nye ark er oprettet efter alle ark i den aktuelle projektmappe, se skærmbillede:

Opret flere regneark fra en liste over celleværdier med Kutools til Excel

Hvis du ikke er dygtig med ovenstående kode, er her et praktisk værktøj-Kutools til Excel, Med Opret sekvensark funktion oprettes regnearkene baseret på celleværdierne i en ny projektmappe.

Efter installation Kutools til Excelskal du gøre som dette:

1. Klik Kutools Plus > Arbejdsark > Opret sekvensark, se skærmbillede:

2. I Opret sekvensark dialog boks:

(1.) Vælg et regneark, som du vil oprette sekvens regneark baseret på;

(2.) Vælg derefter data i en rækkevidde fra Arknavne baseret på i listen, og klik på knap for at vælge de celleværdier, du vil bruge.

3. Og klik derefter på Ok knap, regnearkene er oprettet med navnene på celleværdierne i en ny projektmappe, se skærmbillede:

Klik på Download og gratis prøveversion Kutools til Excel nu!