1. Öffnen Sie die Excel-Datei, die Sie teilen möchten.

2. Drücken Sie Alt+F11 , um den Visual Basic-Editor zu öffnen.

3. Im Projektexplorer , klicken Sie mit der rechten Maustaste auf DieseArbeitsmappe Modul und wählen Sie Einfügen> Modul .

4. Kopieren Sie den folgenden Code in das Modul:

„

Sub SplitRows()

Dim ws als Arbeitsblatt

Dim i So Long, j So Long

Dateinamen als String dimmen

Zelle als Bereich dimmen

Für jedes ws in ThisWorkbook.Worksheets

i =2 'Beginnen Sie in der zweiten Zeile (Kopfzeile)

j =1 'Zähler für die neuen Dateien

Dateiname =ws.Name &"_" &j

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

While Cells(i, 1) <> "" 'Schleife bis zur letzten nicht leeren Zelle

Rows(i).Copy Destination:=Workbooks(filename).Sheets(1).Rows(j)

Wenn i Mod 1000 =0, dann

ActiveWorkbook.SaveAs Filename:=Dateiname, FileFormat:=xlWorkbookDefault, CreateBackup:=False

Application.DisplayAlerts =False

ActiveWorkbook.Close

Debug.Print "Aufteilen von " &ws.Name &" in " &Dateiname

j =j + 1

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

Dateiname =ws.Name &"_" &j

Ende wenn

ich =ich + 1

Wend

ActiveWorkbook.SaveAs Filename:=Dateiname, FileFormat:=xlWorkbookDefault, CreateBackup:=False

Application.DisplayAlerts =False

ActiveWorkbook.Close

Debug.Print „Aufteilung „ &ws.Name &„ in „ &j &„-Dateien abgeschlossen“

Nächste ws

Debug.Print „Alle Arbeitsblätter erfolgreich geteilt“

Application.DisplayAlerts =True

Sub beenden

„

5. Schließen Sie den Visual Basic-Editor und kehren Sie zur Excel-Datei zurück.

6. Klicken Sie auf Entwickler Klicken Sie auf die Registerkarte Makros Taste.

7. Im Makro Wählen Sie im Dialogfeld SplitRows aus Makro und klicken Sie auf Ausführen Taste.

Option 2:Text in Spalten verwenden

1. Öffnen Sie die Excel-Datei, die Sie teilen möchten.

2. Wählen Sie die Zellen aus, die Sie in separate Dateien aufteilen möchten.

3. Gehen Sie zu den Daten Klicken Sie auf die Registerkarte Text in Spalten Taste.

4. Im Text in Spalten Wählen Sie im Assistenten die Option Getrennt aus Option und klicken Sie auf Weiter .

5. In den Trennzeichen Wählen Sie im Abschnitt Komma aus Kontrollkästchen und klicken Sie auf Weiter .

6. In der Datenvorschau Stellen Sie sicher, dass die Daten korrekt aufgeteilt sind, und klicken Sie auf Fertig stellen .

7. Die ausgewählten Daten werden in separate Spalten aufgeteilt.

8. Speichern Sie jede Spalte als separate Datei, indem Sie zu Datei gehen Klicken Sie auf der Registerkarte auf Speichern unter und wählen Sie die Excel-Arbeitsmappe aus Dateiformat.