Du kan eksplodere Excel -regneark til separate arbeidsbøker ved hjelp av VBA (Visual Basic for applikasjoner) innen Excel. Her er en trinn-for-trinns guide:

1. Aktiver fanen Developer:

* Åpne Excel -arbeidsboken din.

* Gå til File> Alternativer> Tilpass bånd .

* Merk av i ruten for utvikler .

* Klikk OK .

2. Sett inn en VBA -modul:

* Klikk Developer> Visual Basic .

* I Visual Basic Editor (VBE), gå til INSERT> MODUL .

3. Lim inn og endre VBA -koden:

`` VBA

Sub SplitWorksheets ()

Dim WB som arbeidsbok, WS som regneark

Dim Newwb som arbeidsbok

Dim filnavn som streng

Sett WB =ActiveWorkbook 'Sett den aktive arbeidsboken

'Loop gjennom hvert regneark

For hver WS i WB.Worksheets

'Lag en ny arbeidsbok

Sett newWB =Workbooks.add

'Kopier det nåværende regnearket til den nye arbeidsboken

ws.copy før:=newwb.sheets (1)

'Gi nytt navn til den nye arbeidsboken basert på regnearknavnet

filnavn =ws.name &".xlsx"

newwb.saveas filnavn

'Lukk den nye arbeidsboken

newwb.close

Neste ws

Slutt sub

`` `

Forklaring:

* `dim wb som arbeidsbok, ws som regneark, newWB som arbeidsbok, filnavn som streng`: Erklærer variabler for å lagre arbeidsbok- og regnearkobjekter, samt filnavnet for den nye arbeidsboken.

* `Sett WB =ActiveWorkBook`: Angir `WB` -variabelen til den for øyeblikket aktive arbeidsboken.

* `For hver WS i WB.Worksheets`: Sløyfer gjennom hvert regneark i den aktive arbeidsboken.

* `Sett NewWB =Workbooks.add`: Oppretter en ny tom arbeidsbok.

* `ws.copy før:=newwb.sheets (1)`: Kopierer det nåværende regnearket (`ws`) til den nyopprettede arbeidsboken (` newWB`), og setter den inn før det første arket.

* `filnavn =ws.name &" .xlsx "`: Angir filnavnet for den nye arbeidsboken ved å bruke navnet på regnearket og `.xlsx` -utvidelsen.

* `newwb.saveas filename`: Lagrer den nye arbeidsboken med det spesifiserte filnavnet.

* `newwb.close`: Lukker den nyopprettede arbeidsboken.

4. Kjør makroen:

* Trykk Alt + F11 For å gå tilbake til Excel -arket.

* Gå til utvikler> Makroer .

* Velg SplitWorksheets Makro og klikk Kjør .

Makroen vil lage separate Excel -arbeidsbøker for hvert regneark i den opprinnelige arbeidsboken, og lagre dem i samme mappe som den originale arbeidsboken.

Ytterligere merknader:

* Tilpass filnavnformatet: Du kan endre `filnavn` -variabelen for å inkludere tilleggsinformasjon, for eksempel dato eller tid, i de lagrede filnavnene.

* Lagre i en bestemt mappe: Du kan spesifisere en annen mappe for å lagre de nye arbeidsbøkene ved å endre `filnavn -variabelen.

* Kjør makroen på en annen arbeidsbok: Før du kjører makroen, må du huske å velge arbeidsboken du vil dele opp i separate filer.