Kuinka jakaa Excel-arkit tiedostoiksi

Kun työskentelet Excelin kanssa, saatat haluta jakaa laskentataulukot eri tiedostoihin. Niiden erottamiseen on erilaisia ​​tapoja. Jos työkirjassa on vain pari arkkia, voit käyttää ' Siirrä ja kopioi ' -komento erottaa ne yksitellen. Jos työkirjassa on kuitenkin useita laskentataulukoita, saatat joutua miettimään joitain helpompia tapoja käyttää makrokoodeja. Katso alta lisätietoja:

Vaihe 1: Luo uusi kansio ja siirrä työkirja kansioon. Syynä on se, että erotetut tiedostot näkyvät kansiossa;

Vaihe 2: Paina pikanäppäintä ' Alt + F11 ' avataksesi Microsoft Visual Basic for Applications -ikkunan;

Vaihtoehtoisesti napsauta ' Kehittäjä '-välilehti nauhasta ja napsauta' Visual Basic ' avataksesi ikkunan.

Vaihe 3: Napsauta uudessa ikkunassa ' Lisää ' -välilehti nauhasta ja napsauta ' Moduuli ';

Vaihe 4: Kopioi ja liitä seuraavat koodit Moduuli-ikkunaan;

Sub Splitbook()
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
xWs.Copy
Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Vaihe 5: Napsauta ' Suorita Sub ' -painiketta (tai paina F5-näppäintä) suorittaaksesi koodit;

Vaihe 6: Palaa kansioon ja näet kaikki erotetut tiedostot sekä alkuperäisen työkirjan kansiossa.