Πώς να χωρίσετε το αρχείο Excel σε πολλά αρχεία ανά σειρά

1. Ανοίξτε το αρχείο Excel που θέλετε να χωρίσετε.

2. Πατήστε Alt+F11 για να ανοίξετε το πρόγραμμα επεξεργασίας της Visual Basic.

3. Στον Project Explorer , κάντε δεξί κλικ στο This Workbook μονάδα και επιλέξτε Εισαγωγή> Μονάδα .

4. Αντιγράψτε τον ακόλουθο κώδικα στη λειτουργική μονάδα:

```

Sub SplitRows()

Dim ws As φύλλο εργασίας

Dim i As Long, j As Long

Σμίγα το όνομα αρχείου ως συμβολοσειρά

Θαμπό κελί ως εύρος

Για κάθε ws In ThisWorkbook.Φύλλα εργασίας

i =2 'Ξεκινήστε από τη δεύτερη σειρά (κεφαλίδα)

j =1 'Μετρητής για τα νέα αρχεία

όνομα αρχείου =ws.Όνομα &"_" &j

Τετράδια εργασίας.Προσθήκη.Φύλλα εργασίας(1).Όνομα =ws.Όνομα

Ενώ Κελιά(i, 1) <> "" 'Κάντε βρόχο μέχρι το τελευταίο μη κενό κελί

Γραμμές(i).Αντιγραφή Προορισμού:=Βιβλία εργασίας(όνομα αρχείου).Φύλλα(1).Σειρές(j)

Αν i Mod 1000 =0 Τότε

ActiveWorkbook.SaveAs Όνομα αρχείου:=όνομα αρχείου, Μορφή αρχείου:=xlWorkbookDefault, CreateBackup:=False

Application.DisplayAlerts =False

ActiveWorkbook.Κλείσιμο

Εντοπισμός σφαλμάτων. Εκτύπωση "Διαίρεση " &ws.Name &" σε " &όνομα αρχείου

j =j + 1

Τετράδια εργασίας.Προσθήκη.Φύλλα εργασίας(1).Όνομα =ws.Όνομα

όνομα αρχείου =ws.Όνομα &"_" &j

Τέλος Αν

i =i + 1

Διευθύνω

ActiveWorkbook.SaveAs Όνομα αρχείου:=όνομα αρχείου, Μορφή αρχείου:=xlWorkbookDefault, CreateBackup:=False

Application.DisplayAlerts =False

ActiveWorkbook.Κλείσιμο

Debug.Print "Ολοκληρώθηκε ο διαχωρισμός " &ws.Name &" σε αρχεία " &j &"

Επόμενα ws

Debug.Print "Όλα τα φύλλα εργασίας χωρίστηκαν με επιτυχία"

Application.DisplayAlerts =True

End Sub

```

5. Κλείστε το πρόγραμμα επεξεργασίας της Visual Basic και επιστρέψτε στο αρχείο Excel.

6. Κάντε κλικ στο Προγραμματιστής καρτέλα και μετά κάντε κλικ στο Μακροεντολές κουμπί.

7. Στη Μακροεντολή στο παράθυρο διαλόγου, επιλέξτε το SplitRows μακροεντολή και κάντε κλικ στο Εκτέλεση κουμπί.

Επιλογή 2:Χρήση κειμένου σε στήλες

1. Ανοίξτε το αρχείο Excel που θέλετε να χωρίσετε.

2. Επιλέξτε τα κελιά που θέλετε να χωρίσετε σε ξεχωριστά αρχεία.

3. Μεταβείτε στα Δεδομένα καρτέλα και κάντε κλικ στην Κείμενο σε στήλες κουμπί.

4. Στο Κείμενο σε στήλες οδηγός, επιλέξτε το Οριοθετημένο και κάντε κλικ στο Επόμενο .

5. Στους Οριοθέτες ενότητα, επιλέξτε το Κόμμα πλαίσιο ελέγχου και κάντε κλικ στο Επόμενο .

6. Στην Προεπισκόπηση δεδομένων ενότητα, βεβαιωθείτε ότι τα δεδομένα έχουν διαχωριστεί σωστά και κάντε κλικ στο Τέλος .

7. Τα επιλεγμένα δεδομένα θα χωριστούν σε ξεχωριστές στήλες.

8. Αποθηκεύστε κάθε στήλη ως ξεχωριστό αρχείο μεταβαίνοντας στο Αρχείο καρτέλα, κάνοντας κλικ στην Αποθήκευση ως , και επιλέγοντας το Βιβλίο εργασίας του Excel μορφή αρχείου.