1. Åbn den Excel-fil, du vil opdele.

2. Tryk på Alt+F11 for at åbne Visual Basic Editor.

3. I Project Explorer , højreklik på ThisWorkbook modul og vælg Indsæt> Modul .

4. Kopier følgende kode ind i modulet:

```

Sub SplitRows()

Dim ws As Arbejdsark

Dim i Så længe, ​​j Så længe

Dim filnavn som streng

Dæmp celle som område

For hver ws In ThisWorkbook.Worksheets

i =2 'Start fra anden række (overskrift)

j =1 'Tæller for de nye filer

filnavn =ws.Name &"_" &j

Workbooks.Add.Worksheets(1).Name =ws.Name

While Cells(i, 1) <> "" 'Loop indtil den sidste ikke-tomme celle

Rows(i).Kopier Destination:=Arbejdsbøger(filnavn).Sheets(1).Rows(j)

Hvis i Mod 1000 =0 Så

ActiveWorkbook.SaveAs Filnavn:=filnavn, FileFormat:=xlWorkbookDefault, CreateBackup:=False

Application.DisplayAlerts =Falsk

ActiveWorkbook.Close

Debug.Print "Opdel " &ws.Name &" i " &filnavn

j =j + 1

Workbooks.Add.Worksheets(1).Name =ws.Name

filnavn =ws.Name &"_" &j

Afslut hvis

i =i + 1

Wend

ActiveWorkbook.SaveAs Filnavn:=filnavn, FileFormat:=xlWorkbookDefault, CreateBackup:=False

Application.DisplayAlerts =Falsk

ActiveWorkbook.Close

Debug.Print "Opdelt " &ws.Name &" i " &j &" filer"

Næste ws

Debug.Print "Alle regneark blev opdelt"

Application.DisplayAlerts =Sand

Slut Sub

```

5. Luk Visual Basic Editor og vend tilbage til Excel-filen.

6. Klik på Udvikler fanen, og klik derefter på Makroer knap.

7. I Makro dialogboksen skal du vælge SplitRows makro og klik på Kør knap.

Mulighed 2:Brug af tekst til kolonner

1. Åbn den Excel-fil, du vil opdele.

2. Vælg de celler, du vil opdele i separate filer.

3. Gå til Data fanen og klik på Tekst til kolonner knap.

4. I Tekst til kolonner guiden skal du vælge Afgrænset og klik på Næste .

5. I Afgrænsningstegn skal du vælge Komma afkrydsningsfeltet, og klik på Næste .

6. I Vis data skal du kontrollere, at dataene er opdelt korrekt og klikke på Udfør .

7. De valgte data vil blive opdelt i separate kolonner.

8. Gem hver kolonne som en separat fil ved at gå til Fil fanen ved at klikke på Gem som , og vælge Excel-projektmappe filformat.