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

Για να σας γίνει πιο κατανοητή αυτή η εξήγηση, θα χρησιμοποιήσω ένα δείγμα συνόλου δεδομένων. Υπάρχουν 4 στήλες στο σύνολο δεδομένων που αντιπροσωπεύουν πληροφορίες για τις πωλήσεις διαφόρων μηνών. Οι στήλες αυτές είναι οι εξής Πωλητής, Περιοχή, Μήνας, και Πωλήσεις .

Λήψη για πρακτική

Τρόποι διαχωρισμού του φύλλου Excel σε πολλαπλά φύλλα εργασίας

1. Χρήση φίλτρου και αντιγραφής

Από οποιοδήποτε φύλλο, μπορείτε να χωρίσετε τα δεδομένα σε πολλαπλά φύλλα χρησιμοποιώντας Φίλτρο .

Αρχικά, επιλέξτε την περιοχή κελιών στην οποία θέλετε να εφαρμόσετε το Φίλτρο .

➤Εδώ, επέλεξα την περιοχή κελιών B3:E15 .

Στη συνέχεια, ανοίξτε το Δεδομένα tab>> select Φίλτρο .

Μπορείτε επίσης να χρησιμοποιήσετε CTRL + SHIFT + L για να εφαρμόσετε Φίλτρο χρησιμοποιώντας το πληκτρολόγιο .

Τώρα, Φίλτρο εφαρμόζεται στην επιλεγμένη περιοχή κελιών.

Στη συνέχεια, κάντε κλικ στο Μήνας στήλη καθώς θέλω να χωρίσω τα δεδομένα ανάλογα με Μήνας αξίες.

Από εκεί και πέρα αποεπιλεγμένο τα πάντα εκτός από Ιανουάριος . Τέλος, κάντε κλικ στο OK .

Τώρα, όλες οι τιμές όπου η Μήνας είναι Ιανουάριος φιλτράρονται.

Τότε, Αντιγραφή τα δεδομένα και Επικόλληση στο νέο φύλλο εργασίας.

Εδώ, ονόμασα το νέο φύλλο Ιανουάριος. Έτσι, θα δείτε όλες τις πληροφορίες πωλήσεων για Ιανουάριος παρουσιάζεται εδώ.

Για το υπόλοιπο της Μήνες , μπορείτε να ακολουθήσετε τις ίδιες διαδικασίες.

Και πάλι, κάντε κλικ στο Μήνας στήλη καθώς θέλω να χωρίσω τα δεδομένα ανάλογα με Μήνας αξίες.

Από εκεί καταργήστε την επιλογή τα πάντα εκτός από Φεβρουάριος . Τέλος, κάντε κλικ στο OK .

Τώρα, όλες οι τιμές για Φεβρουάριος Μήνας φιλτράρονται.

Τότε, Αντιγραφή τα δεδομένα και Επικόλληση στο νέο φύλλο εργασίας.

Αργότερα, ονόμασα το νέο φύλλο Φεβρουάριος. Έτσι, θα βλέπετε όλες τις πληροφορίες πωλήσεων για το Μήνας του Φεβρουάριος παρουσιάζεται εδώ.

Και πάλι, κάντε κλικ στο Μήνας στήλη καθώς θέλω να χωρίσω τα δεδομένα ανάλογα με Μήνας αξίες.

Από εκεί καταργήστε την επιλογή τα πάντα εκτός από Μάρτιος . Τέλος, κάντε κλικ στο OK .

Τώρα, θα δείτε όλες τις τιμές της Μάρτιος φιλτράρονται.

Τότε, Αντιγραφή τα δεδομένα και Επικόλληση στο νέο φύλλο εργασίας.

Στο τέλος, ονόμασα το νέο φύλλο Μάρτιος Ως εκ τούτου, θα δείτε όλες τις πληροφορίες πωλήσεων για Μάρτιος παρουσιάζεται εδώ.

Διαβάστε περισσότερα: Διαχωρίστε το φύλλο του Excel σε πολλαπλά φύλλα με βάση τις γραμμές

2. Διαχωρισμός φύλλου Excel με βάση τον αριθμό γραμμών χρησιμοποιώντας το VBA

Πριν ξεκινήσετε τη διαδικασία, πρέπει να θυμάστε ότι πρέπει να ξεκινήσετε τα δεδομένα από τις πρώτες γραμμές.

Τώρα, ανοίξτε το Προγραμματιστής tab>> select Visual Basic

Θα ανοίξει ένα νέο παράθυρο Microsoft Visual Basic για εφαρμογές .

Τώρα, από Εισαγωγή >> επιλέξτε Ενότητα

A Ενότητα θα ανοίξει εκεί.

Στη συνέχεια, γράψτε τον ακόλουθο κώδικα στο Ενότητα .

 Sub SplitExcelSheet_into_MultipleSheets() Dim WorkRng As Range Dim xRow As Range Dim SplitRow As Integer Dim xWs As Worksheet On Error Resume Next EcelTitleId = "Split Row Numt" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", ExcelTitleId, WorkRng.Address, Type:=8) SplitRow = Application.InputBox("Split Row Num", ExcelTitleId, 4, Type:=1) Set xWs = WorkRng.ParentSet 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 

Εδώ, έχω δημιουργήσει μια υπο-διαδικασία που ονομάζεται SplitExcelSheet_into_MultipleSheets .

Όπου δήλωσα μερικές μεταβλητές αυτές είναι οι εξής WorkRng και xRow ως Εύρος τύπος τότε

SplitRow ως Ακέραιος αριθμός επίσης xWs ως Φύλλο εργασίας τύπου.

Επίσης, χρησιμοποιείται ExcelTitleId για να δώσει το παράθυρο διαλόγου τίτλος.

Έχω παράσχει αριθμό γραμμής διαχωρισμού 4 να χωρίσω τα δεδομένα κατά 4 γραμμές, επειδή στο σύνολο δεδομένων μου η Μήνας του Ιανουάριος έχει 4 σειρές.

Τέλος, χρησιμοποίησε ένα Για το βρόχο για να SplitRow έως ότου τελειώσει το συγκεκριμένο εύρος κελιών.

Τότε, Αποθήκευση τον κώδικα και επιστρέψτε στο φύλλο εργασίας.

Τώρα, ανοίξτε το Προγραμματιστής tab>> Από Εισαγωγή >> επιλέξτε Κουμπί

A παράθυρο διαλόγου θα εμφανιστεί.

Για να εκχωρήσετε το Μάκρο στην εισαγόμενη Κουμπί .

Επιλέξτε SplitExcelSheet_into_Multiplesheets από το Όνομα μακροεντολής στη συνέχεια κάντε κλικ στο OK .

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

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

➤Εδώ, επέλεξα την περιοχή κελιών B1:E12

Στη συνέχεια, κάντε κλικ στο OK .

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

➤ Στον κώδικα, παρείχα 4 ως Αριθμός γραμμής διαχωρισμού

Όπως έχω συνολικά 12 σειρές έτσι με 4 σειρές θα υπάρξουν 3 φύλλα .

Στο Φύλλο1 , θα δείτε τα δεδομένα των πρώτων 4 γραμμών.

Στο Φύλλο2 , θα δείτε τα δεδομένα των γραμμών 5 έως 8.

Στο Φύλλο3 , θα δείτε τα δεδομένα των τελευταίων 4 γραμμών.

Διαβάστε περισσότερα: Excel VBA: Διαχωρισμός φύλλου σε πολλαπλά φύλλα με βάση τις γραμμές

Παρόμοιες αναγνώσεις

• Πώς να χωρίσετε την οθόνη στο Excel (3 τρόποι)
• [Fix:] Η προβολή του Excel δίπλα-δίπλα δεν λειτουργεί
• Πώς να διαχωρίζετε φύλλα στο Excel (6 αποτελεσματικοί τρόποι)
• Άνοιγμα δύο αρχείων Excel ξεχωριστά (5 εύκολες μέθοδοι)
• Πώς να χωρίσετε το φύλλο του Excel σε πολλαπλά αρχεία (3 γρήγορες μέθοδοι)

3. Διαχωρίστε το φύλλο του Excel σε πολλαπλά βιβλία εργασίας με βάση τη στήλη

Πριν ξεκινήσετε τη διαδικασία, πρέπει να θυμάστε ότι πρέπει να ξεκινήσετε τα δεδομένα από την πρώτη γραμμή και την πρώτη στήλη.

Τώρα, ανοίξτε το Προγραμματιστής tab>> select Visual Basic

Θα ανοίξει ένα νέο παράθυρο Microsoft Visual Basic για εφαρμογές .

Τώρα, από Εισαγωγή >> επιλέξτε Ενότητα

A Ενότητα θα ανοίξει εκεί.

Στη συνέχεια, γράψτε τον ακόλουθο κώδικα στο Ενότητα .

 Sub SplitSheetIntoMultipleWorkbooksBasedOnColumn() Dim objWorksheet As Excel.Worksheet Dim nLastRow, nRow, nNextRow As Integer Dim strColumnValue As String Dim objDictionary As Object Dim varColumnValues As Variant Dim varColumnValue As Variant Dim objExcelWorkbook As Excel.Workbook Dim objSheet As Excel.Worksheet Set objWorksheet = ActiveSheet nLastRow =objWorksheet.Range("A" & objWorksheet.Rows.Count).End(xlUp).Row Set objDictionary = CreateObject("Scripting.Dictionary") For nRow = 2 To nLastRow strColumnValue = objWorksheet.Range("C" & nRow).Value If objDictionary.Exists(strColumnValue) = False Then objDictionary.Add strColumnValue, 1 End If Next varColumnValues = objDictionary.KeysFor i = LBound(varColumnValues) To UBound(varColumnValues) varColumnValue = varColumnValues(i) Set objExcelWorkbook = Excel.Application.Workbooks.Add Set objSheet = objExcelWorkbook.Sheets(1) objSheet.Name = objWorksheet.Name objWorksheet.Rows(1).EntireRow.Copy objSheet.Activate objSheet.Range("A1").Select objSheet.PasteFor nRow = 2 To nLastRow If CStr(objWorksheet.Range("C" & nRow).Value) = CStr(varColumnValue) Then objWorksheet.Rows(nRow).EntireRow.Copy nNextRow = objSheet.Range("A" & objWorksheet.Rows.Count).End(xlUp).Row + 1 objSheet.Range("A" & nNextRow).Select objSheet.PasteobjSheet.Columns("A:D").AutoFit End If Next Next End Sub 

Εδώ, έχω δημιουργήσει μια υπο-διαδικασία που ονομάζεται SplitSheetIntoMultipleWorkbooksBasedOnColumn , όπου δήλωσα πολλαπλές μεταβλητές.

Χρησιμοποίησα 3 ΓΙΑ βρόχοι. Ο 1ος ΓΙΑ loop θα μετρήσει τις γραμμές από τη γραμμή 2 μέχρι την τελευταία γραμμή με τιμή για να πάρει τη συγκεκριμένη στήλη. Έχω δώσει την περίπτωση του "C" στήλη.

Μπορείτε να το αλλάξετε στην περίπτωσή σας

Η 2η Για το θα δημιουργήσει ένα νέο βιβλίο εργασίας του Excel.

Η 3η Fo r loop θα αντιγράψει τα δεδομένα με την ίδια στήλη "C" τιμή στο νέο βιβλίο εργασίας από τη 2η γραμμή έως την τελευταία γραμμή με τιμή.

Τότε, Αποθήκευση τον κώδικα και επιστρέψτε στο φύλλο εργασίας.

Τώρα, ανοίξτε το Προβολή tab>> Από Μακροεντολές >> επιλέξτε Προβολή μακροεντολών

A παράθυρο διαλόγου θα εμφανιστεί.

Τώρα, από το Όνομα μακροεντολής επιλέξτε το SplitSheetIntoMultipleWorkbooksBasedOnColumn επιλέξτε επίσης το βιβλίο εργασίας μέσα στο Μακροεντολές σε .

Τέλος, Εκτέλεση το επιλεγμένο Μάκρο .

Τέλος, θα δείτε ότι έχουν δημιουργηθεί 3 νέα βιβλία εργασίας, καθώς υπάρχουν 3 διαφορετικά Μήνες στη στήλη C . Βιβλίο1 για το Ιανουάριος .

Το Βιβλίο2 για το Φεβρουάριος .

Το Βιβλίο3 για το Μάρτιος .

Διαβάστε περισσότερα: Πώς να χωρίσετε το φύλλο του Excel σε πολλαπλά φύλλα με βάση την τιμή στήλης

Συμπέρασμα

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