Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky

Domáce Hardware Siete Programovanie Softvér Otázka Systémy

Ako rozdeliť súbor Excel do viacerých súborov podľa riadkov

Možnosť 1:Použitie makra VBA

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.

Najnovšie články

Copyright © počítačové znalosti Všetky práva vyhradené