Συμβουλή: Άλλες γλώσσες μεταφράζονται από την Google. Μπορείτε να επισκεφθείτε το English έκδοση αυτής της σύνδεσης.
Σύνδεση
x
or
x
x
Κανε ΕΓΓΡΑΦΗ
x

or

Πώς να διαχωρίσετε τα δεδομένα σε πολλαπλά φύλλα εργασίας με βάση τις σειρές σε Excel;

Για παράδειγμα, έχω μια σειρά από λίστα δεδομένων, τώρα θέλω να τα χωρίσω σε πολλαπλά φύλλα εργασίας με αριθμό γραμμών, σε αυτό το παράδειγμα, θα τα χωρίσω με κάθε σειρά 5 (δείτε τα επόμενα screenshots). Υπάρχουν τρόποι να μας βοηθήσετε να λύσουμε αυτό το πρόβλημα γρήγορα; Εδώ θα σας παρουσιάσω δύο κόλπα για να το κάνετε εύκολα.


doc-split-data-by-rows1


-2



doc-split-data-by-rows2
doc-split-data-by-rows3
doc-split-data-by-rows4
doc-split-data-by-rows5

Διαχωρίστε τα δεδομένα σε πολλαπλά φύλλα εργασίας με βάση τις σειρές με τον κώδικα VBA

Διαχωρίστε τα δεδομένα σε πολλαπλά φύλλα εργασίας με βάση τις σειρές με Kutools για Excel


arrow μπλε δεξιά φούσκα Διαχωρίστε τα δεδομένα σε πολλαπλά φύλλα εργασίας με βάση τις σειρές με τον κώδικα VBA


Ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει να χωρίσετε τις σειρές σε πολλαπλά φύλλα εργασίας με τον αριθμό των γραμμών, κάντε τα εξής:

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησης, και επικολλήστε τον ακόλουθο κώδικα στο παράθυρο μονάδας.

VBA: Διαχωρίστε τα δεδομένα σε φύλλα με αριθμούς γραμμών στο Excel.

Sub SplitData()
'Updateby20140617
Dim WorkRng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xWs As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
SplitRow = Application.InputBox("Split Row Num", xTitleId, 5, Type:=1)
Set xWs = WorkRng.Parent
Set xRow = WorkRng.Rows(1)
Application.ScreenUpdating = False
For i = 1 To WorkRng.Rows.Count Step SplitRow
    resizeCount = SplitRow
    If (WorkRng.Rows.Count - xRow.Row + 1) < SplitRow Then resizeCount = WorkRng.Rows.Count - xRow.Row + 1
    xRow.Resize(resizeCount).Copy
    Application.Worksheets.Add after:=Application.Worksheets(Application.Worksheets.Count)
    Application.ActiveSheet.Range("A1").PasteSpecial
    Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

3. Στη συνέχεια πατήστε F5 για να εκτελέσετε τον κώδικα και εμφανίζεται ένα παράθυρο διαλόγου για την επιλογή ενός εύρους που θα διαχωριστεί και στη συνέχεια κάντε κλικ στο κουμπί OK, και ένα άλλο διάλογο για να καθορίσετε τον αριθμό των γραμμών. Δείτε το στιγμιότυπο οθόνης:

4. Κλίκ OK, και το εύρος χωρίζεται σε πολλαπλά φύλλα με τον αριθμό γραμμών.

Note: Τα διαχωρισμένα φύλλα εργασίας βρίσκονται στο πίσω μέρος του κύριου φύλλου εργασίας.


arrow μπλε δεξιά φούσκα Διαχωρίστε τα δεδομένα σε πολλαπλά φύλλα εργασίας με βάση τις σειρές με Kutools για Excel

Ο παραπάνω κώδικας μπορεί να διαιρέσει μόνο τα δεδομένα με τον καθορισμένο αριθμό γραμμών και δεν θα προσθέσει τον τίτλο για κάθε φύλλο εργασίας, εάν τα δεδομένα σας έχουν τον τίτλο.

Αλλά με Kutools για το Excel'S Διαχωρίστε τα δεδομένα, μπορείτε όχι μόνο να εισαγάγετε τις κεφαλίδες για κάθε φύλλο εργασίας, αλλά και να ορίσετε τα νέα ονόματα φύλλου εργασίας.

Kutools για το Excel περιλαμβάνει περισσότερα από εύχρηστα εργαλεία Excel του 300. Δωρεάν για να δοκιμάσετε χωρίς περιορισμούς σε 30 ημέρες. Αποκτήστε το τώρα

Αν έχετε εγκαταστήσει το Kutools για Excel, κάντε τα εξής:

1. Επιλέξτε το εύρος των δεδομένων που θέλετε να διαχωρίσετε.

2. Κλίκ Επιχείρηση > Εργαλεία του φύλλου εργασίας > Διαχωρίστε τα δεδομέναΕπιχείρηση > Διαχωρίστε τα δεδομένα ), δείτε το στιγμιότυπο οθόνης:

doc-split-data-by-rows6

3. Στην Διαχωρίστε τα δεδομένα σε πολλαπλά φύλλα εργασίας κουτί διαλόγου:

  • Επιλέγω Σταθερές σειρές από Διαίρεση με βάση και εισαγάγετε τον αριθμό των αριθμών γραμμών που θέλετε να διαχωρίσετε για κάθε φύλλο εργασίας. (Εάν τα δεδομένα σας έχουν κεφαλίδες και θέλετε να τα εισαγάγετε σε κάθε νέο φύλλο εργασίας, ελέγξτε Τα δεδομένα μου έχουν κεφαλίδες επιλογή.)
  • Στη συνέχεια, μπορείτε να ορίσετε τα ονόματα των φύλλων διαχωρισμού, κάτω από το Νέο όνομα φύλλου εργασίας , επιλέξτε τους κανόνες ονομάτων του φύλλου εργασίας από το Κανόνες μπορείτε να προσθέσετε το Πρόθεμα or Κατάληξη για τα ονόματα των φύλλων επίσης. Δείτε το στιγμιότυπο οθόνης:

doc-split-data-by-rows7

4. Αφού καθορίσετε τις ρυθμίσεις, κάντε κλικ στην επιλογή OK, και τα επιλεγμένα δεδομένα έχουν διαχωριστεί σε πολλαπλά φύλλα εργασίας ενός νέου βιβλίου εργασίας από κάθε σειρά 5. Και οι κεφαλίδες εισάγονται για κάθε νέο φύλλο εργασίας. Δείτε το στιγμιότυπο οθόνης:

doc-split-data-by-rows8

Κάντε κλικ για να μάθετε περισσότερα σχετικά με αυτήν τη δυνατότητα Split Data.

Σχετικό άρθρο:

Πώς να χωρίσετε τα δεδομένα σε πολλαπλά φύλλα εργασίας με βάση στήλη στο Excel;



Συνιστώμενα εργαλεία παραγωγικότητας

Καρτέλα Office

χρυσό star1 Φέρτε χρήσιμες καρτέλες στο Excel και άλλο λογισμικό του Office, όπως το Chrome, το Firefox και ο νέος Internet Explorer.

Kutools για το Excel

χρυσό star1 Φοβερο! Αυξήστε την παραγωγικότητά σας σε λεπτά 5. Δεν χρειάζεστε ειδικές δεξιότητες, εκτός από δύο ώρες κάθε μέρα!

χρυσό star1 300 Νέες δυνατότητες για Excel, Κάντε το Excel πολύ εύκολο και ισχυρό:

  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων.
  • Συνδυασμός και ενοποίηση πολλών φύλλων και βιβλίων εργασίας.
  • Συγκρίνετε Περιοχές, Αντιγραφή Πολλαπλών Εύρους, Μετατροπή Κειμένου σε Ημερομηνία, Μετατροπή μονάδας και νομίσματος.
  • Καταμέτρηση κατά Χρώματα, Υποσύνολα σελίδας, Σύνθετη Ταξινόμηση και Σούπερ Φίλτρο,
  • Περισσότερα Επιλογή / Εισαγωγή / Διαγραφή / Κείμενο / Μορφή / Σύνδεσμος / Σχόλιο / Βιβλία εργασίας / Φύλλα εργασίας Εργαλεία ...

Εικόνα του Kutools για το Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Max · 10 months ago
    Omg thank you so very much dude!
  • To post as a guest, your comment is unpublished.
    prasanna · 1 years ago
    Hi Thanks for this great code, but the concern is, here we can only split fixed number of rows, can you help me with split is based on some name or code, because i have different set of rows for each worksheet.
  • To post as a guest, your comment is unpublished.
    aparna · 2 years ago
    hi this works great but want the output as string how can i modify the code or i can say example : 'output',
  • To post as a guest, your comment is unpublished.
    Ralph · 2 years ago
    Thanks a lot for the fantastic VBA-Script. But how to modify it to keep the header row on every split?
  • To post as a guest, your comment is unpublished.
    Ralph · 2 years ago
    Thanks, for this fantastic VBA-Script. But how to configure it to repeat the header row on every split?