1. Open het Excel-bestand dat u wilt splitsen.

2. Druk op Alt+F11 om de Visual Basic-editor te openen.

3. In de Projectverkenner , klik met de rechtermuisknop op ThisWorkbook module en selecteer Invoegen> Module .

4. Kopieer de volgende code naar de module:

```

Sub-gesplitste rijen()

Dim ws As-werkblad

Dim i zo lang, j zo lang

Dim bestandsnaam As String

Cel dimmen als bereik

Voor elke ws in ThisWorkbook.Worksheets

i =2 'Begin vanaf de tweede rij (kop)

j =1 'Teller voor de nieuwe bestanden

bestandsnaam =ws.Naam &"_" &j

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

While Cells(i, 1) <> "" 'Loop tot de laatste niet-lege cel

Rijen(i).Kopieerbestemming:=Werkmappen(bestandsnaam).Blad(1).Rijen(j)

Als ik Mod 1000 =0 Dan

ActiveWorkbook.SaveAs Bestandsnaam:=bestandsnaam, FileFormat:=xlWorkbookDefault, CreateBackup:=False

Application.DisplayAlerts =Onwaar

ActiefWerkboek.Sluiten

Debug.Print "Splitsen " &ws.Name &" in " &bestandsnaam

j =j + 1

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

bestandsnaam =ws.Naam &"_" &j

Einde Als

ik =ik + 1

Wend

ActiveWorkbook.SaveAs Bestandsnaam:=bestandsnaam, FileFormat:=xlWorkbookDefault, CreateBackup:=False

Application.DisplayAlerts =Onwaar

ActiefWerkboek.Sluiten

Debug.Print "Klaar met splitsen " &ws.Name &" in " &j &" bestanden"

Volgende ws

Debug.Print "Alle werkbladen zijn succesvol gesplitst"

Application.DisplayAlerts =Waar

Einde sub

```

5. Sluit de Visual Basic Editor en ga terug naar het Excel-bestand.

6. Klik op Ontwikkelaar tabblad en klik vervolgens op de Macro's knop.

7. In de Macro dialoogvenster, selecteert u de SplitRows macro en klik op Uitvoeren knop.

Optie 2:tekst naar kolommen gebruiken

1. Open het Excel-bestand dat u wilt splitsen.

2. Selecteer de cellen die u in afzonderlijke bestanden wilt splitsen.

3. Ga naar Gegevens tabblad en klik op Tekst naar kolommen knop.

4. In Tekst naar kolommen wizard, selecteer Gescheiden optie en klik op Volgende .

5. In de scheidingstekens sectie, selecteer de Komma selectievakje in en klik op Volgende .

6. In het Gegevensvoorbeeld sectie, controleer of de gegevens correct zijn opgesplitst en klik op Voltooien .

7. De geselecteerde gegevens worden in afzonderlijke kolommen opgesplitst.

8. Sla elke kolom op als een afzonderlijk bestand door naar Bestand te gaan tabblad en klik op Opslaan als en kies de Excel-werkmap bestandsformaat.