Mit VBA (Visual Basic for Applications) innerhalb von Excel können Sie Excel -Arbeitsblätter in separate Arbeitsmappen explodieren. Hier ist eine Schritt-für-Schritt-Anleitung:
1. Aktivieren Sie die Registerkarte "Entwickler":
* Öffnen Sie Ihr Excel -Arbeitsbuch.
* Gehen Sie zu Datei> Optionen> Anpassen von Tibbon .
* Aktivieren Sie das Kontrollkästchen für Entwickler .
* Klicken Sie auf OK .
2. Fügen Sie ein VBA -Modul ein:
* Klicken Sie auf Entwickler> Visual Basic .
* Gehen Sie im Visual Basic Editor (VBE) zu Einfügen> Modul .
3. Fügen Sie den VBA -Code ein und ändern Sie:
`` `vba
Sub -Split -Worksheets ()
Dim WB als Arbeitsmappe, WS als Arbeitsblatt
Dim Newwb als Arbeitsmappe
Dim Filename als Zeichenfolge
Setzen Sie WB =ActiveWorkbook 'Setzen Sie die aktive Arbeitsmappe
'Schaufeln Sie jedes Arbeitsblatt durch
Für jedes WS in WB.Worksheets
'Erstellen Sie eine neue Arbeitsmappe
Setzen Sie newWB =workbooks.add
'Kopieren Sie das aktuelle Arbeitsblatt in das neue Arbeitsbuch
Ws.Copy vor:=newwb.sheets (1)
Benennen Sie das neue Arbeitsbuch basierend auf dem Arbeitsblattnamen
Dateiname =Ws.Name &".xlsx"
NewWB.Saveas Dateiname
'Schließen Sie das neue Arbeitsmappe
newwb.close
NEXT WS
Ende sub
`` `
Erläuterung:
* `dim WB als Arbeitsbuch, WS als Arbeitsblatt, NewWB als Arbeitsmappe, Dateiname als String`: Deklariert Variablen zum Speichern von Arbeitsmappen und Arbeitsblattobjekten sowie den Dateinamen für das neue Arbeitsbuch.
* `set WB =ActiveWorkbook`: Legt die "WB` -Variable für das aktuell aktive Arbeitsbuch" fest.
* `für jedes WS in WB.Worksheets`: Schleifen Sie jedes Arbeitsblatt im aktiven Arbeitsbuch durch.
* `Set NewWB =Workbooks.Add`: Erstellt ein neues leeres Arbeitsbuch.
* `ws.copy vor:=newwb.sheets (1)`: Kopiert das aktuelle Arbeitsblatt (`ws`) in das neu erstellte Arbeitsbuch (` NewWB`) und fügt es vor dem ersten Blatt ein.
* `Dateiname =Ws.Name &" .xlsx "`: Legt den Dateinamen für das neue Arbeitsbuch mit dem Namen des Arbeitsblatts und der ".xlsx" -Weiterung fest.
* `newWB.Saveas Dateiname`: Speichert die neue Arbeitsmappe mit dem angegebenen Dateinamen.
* `newwb.close`: Schließt das neu erstellte Arbeitsbuch.
4. Führen Sie das Makro aus:
* Drücken Sie Alt + F11 Um zum Excel -Blatt zurückzukehren.
* Gehen Sie zu Entwickler> Makros .
* Wählen Sie die Splitworksheets aus Makro und klicken Sie auf ausführen .
Das Makro erstellt separate Excel -Arbeitsmappen für jedes Arbeitsblatt in Ihrer ursprünglichen Arbeitsmappe und speichert sie im selben Ordner wie die ursprüngliche Arbeitsmappe.
Zusätzliche Hinweise:
* Passen Sie das Dateiname -Format an: Sie können die Variable "Dateiname" so ändern, dass zusätzliche Informationen, z. B. Datum oder Uhrzeit, in die gespeicherten Dateinamen aufgenommen werden.
* in einem bestimmten Ordner speichern: Sie können einen anderen Ordner angeben, um die neuen Arbeitsmappen zu speichern, indem Sie die Variable "Dateiname" ändern.
* Führen Sie das Makro auf einem anderen Arbeitsbuch aus: Stellen Sie vor dem Ausführen des Makros sicher, dass Sie die Arbeitsmappe auswählen, die Sie in separate Dateien teilen möchten.
