Du kan explodera Excel -kalkylblad i separata arbetsböcker med VBA (Visual Basic för applikationer) inom Excel. Här är en steg-för-steg-guide:
1. Aktivera fliken Utvecklare:
* Öppna din Excel -arbetsbok.
* Gå till fil> Alternativ> Anpassa band .
* Kontrollera rutan för utvecklare .
* Klicka på ok .
2. Infoga en VBA -modul:
* Klicka på utvecklare> Visual Basic .
* I Visual Basic Editor (VBE), gå till insert> -modulen .
3. Klistra in och ändra VBA -koden:
`` VBA
SUB SPLARE WORKSHEETS ()
Dim WB som arbetsbok, WS som kalkylblad
Dim newwb som arbetsbok
Dim filnamn som sträng
Ställ in WB =ActiveWorkbook 'Ställ in den aktiva arbetsboken
'Loop genom varje kalkylblad
För varje WS i WB.Worksheets
'Skapa en ny arbetsbok
Ställ in newwb =arbetsböcker.Add
'Kopiera det aktuella kalkylbladet till den nya arbetsboken
ws.copy före:=newwb.blad (1)
'Byt namn på den nya arbetsboken baserat på kalkylbladet
filnamn =ws.name &".xlsx"
newwb.saveas filnamn
'Stäng den nya arbetsboken
newwb.close
Nästa WS
Slutsub
`` `
Förklaring:
* `dim wb som arbetsbok, ws som kalkylblad, newwb som arbetsbok, filnamn som sträng`: Förklarar variabler för att lagra arbetsbok- och kalkylobjekt samt filnamnet för den nya arbetsboken.
* `set wb =ActiveWorkbook`: Ställer in variabeln "WB" till den för närvarande aktiva arbetsboken.
* `för varje WS i WB.Worksheets`: Loops genom varje kalkylblad i den aktiva arbetsboken.
* `Ställ in newwb =arbetsböcker.Add`: Skapar en ny tom arbetsbok.
* `ws.copy före:=newwb.blad (1)`: Kopierar det aktuella kalkylbladet (`WS`) till den nyligen skapade arbetsboken (` newwb`) och sätter in det före det första arket.
* `filnamn =ws.name &" .xlsx "`: Ställer in filnamnet för den nya arbetsboken med hjälp av kalkylbladet och förlängningen `.xlsx.
* `newwb.saveas filnamn`: Sparar den nya arbetsboken med det angivna filnamnet.
* `newwb.close`: Stänger den nyligen skapade arbetsboken.
4. Kör makro:
* Tryck alt + f11 För att återgå till Excel -arket.
* Gå till utvecklare> makron .
* Välj splitworksheets makro och klicka på run .
Makroen kommer att skapa separata Excel -arbetsböcker för varje kalkylblad i din ursprungliga arbetsbok, vilket sparar dem i samma mapp som den ursprungliga arbetsboken.
Ytterligare anteckningar:
* Anpassa filnamnsformatet: Du kan ändra variabeln "filnamn" för att inkludera ytterligare information, till exempel datum eller tid, i de sparade filnamnen.
* Spara till en specifik mapp: Du kan ange en annan mapp för att spara de nya arbetsböckerna genom att ändra variabeln "Filnamn".
* Kör makroen på en annan arbetsbok: Innan du kör makro, se till att du väljer den arbetsbok du vill dela upp i separata filer.
