Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
1. Otvorte súbor programu Excel, ktorý chcete rozdeliť.
2. Stlačte Alt+F11 otvorte editor jazyka Visual Basic.
3. V Prieskumníkovi projektu , kliknite pravým tlačidlom myši na Tento zošit modul a vyberte možnosť Vložiť> Modul .
4. Skopírujte nasledujúci kód do modulu:
```
Sub SplitRows()
Dim ws As Worksheet
Dim i As Long, j As Long
Dim názov súboru ako reťazec
Stlmiť bunku ako rozsah
Pre každé ws In ThisWorkbook.Worksheets
i =2 'Začať od druhého riadku (hlavička)
j =1 'Počítadlo pre nové súbory
názov_súboru =ws.Name &"_" &j
Workbooks.Add.Worksheets(1).Name =ws.Name
While Cells(i, 1) <> "" 'Opakovať do poslednej neprázdnej bunky
Riadky(i).Cieľ kopírovania:=Zošity(názov súboru).Hárok(1).Riadky(j)
Ak i Mod 1000 =0 Potom
ActiveWorkbook.SaveAs Filename:=filename, FileFormat:=xlWorkbookDefault, CreateBackup:=False
Application.DisplayAlerts =False
ActiveWorkbook.Close
Debug.Print "Splitting " &ws.Name &" do " &názov súboru
j =j + 1
Workbooks.Add.Worksheets(1).Name =ws.Name
názov_súboru =ws.Name &"_" &j
End If
i =i + 1
Wend
ActiveWorkbook.SaveAs Filename:=filename, FileFormat:=xlWorkbookDefault, CreateBackup:=False
Application.DisplayAlerts =False
ActiveWorkbook.Close
Debug.Print "Dokončené rozdelenie " &ws.Name &" do súborov " &j &"
Ďalšie ws
Debug.Print "Všetky hárky sa úspešne rozdelili"
Application.DisplayAlerts =True
End Sub
```
5. Zatvorte editor jazyka Visual Basic a vráťte sa do súboru programu Excel.
6. Kliknite na položku Vývojár a potom kliknite na Makrá tlačidlo.
7. V časti Makro dialógovom okne vyberte položku Rozdeliť riadky makro a kliknite na tlačidlo Spustiť tlačidlo.
Možnosť 2:Použitie textu do stĺpcov
1. Otvorte súbor programu Excel, ktorý chcete rozdeliť.
2. Vyberte bunky, ktoré chcete rozdeliť do samostatných súborov.
3. Prejdite do časti Údaje a kliknite na Text do stĺpcov tlačidlo.
4. V časti Text do stĺpcov v sprievodcovi vyberte možnosť Oddeľované a kliknite na tlačidlo Ďalej .
5. V časti Oddeľovače vyberte sekciu Čiarka začiarknite políčko a kliknite na tlačidlo Ďalej .
6. V časti Ukážka údajov skontrolujte, či sú údaje rozdelené správne, a kliknite na tlačidlo Dokončiť .
7. Vybraté údaje budú rozdelené do samostatných stĺpcov.
8. Uložte každý stĺpec ako samostatný súbor tak, že prejdete na Súbor kliknutím na tlačidlo Uložiť ako a výberom zošita programu Excel formát súboru.