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

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

Κύριος πίνακας		Διαχωρίστε τον πίνακα σε πολλούς πίνακες ανά τιμή στήλης	Διαχωρίστε τον πίνακα σε πολλούς πίνακες κατά αριθμό σειρών

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

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

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

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

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

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

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

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

Sub Splitdatabycol()
'by Extendoffice
Dim lr As Long
Dim ws As Worksheet
Dim vcol, i As Integer
Dim icol As Long
Dim myarr As Variant
Dim title As String
Dim titlerow As Integer
Dim xTRg As Range
Dim xVRg As Range
Dim xWSTRg As Worksheet
On Error Resume Next
Set xTRg = Application.InputBox("Please select the header rows:", "Kutools for Excel", "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set xVRg = Application.InputBox("Please select the column you want to split data based on:", "Kutools for Excel", "", Type:=8)
If TypeName(xVRg) = "Nothing" Then Exit Sub
vcol = xVRg.Column
Set ws = xTRg.Worksheet
lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row
title = xTRg.AddressLocal
titlerow = xTRg.Cells(1).Row
icol = ws.Columns.Count
ws.Cells(1, icol) = "Unique"
Application.DisplayAlerts = False
If Not Evaluate("=ISREF('xTRgWs_Sheet!A1')") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
Else
Sheets("xTRgWs_Sheet").Delete
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
End If
Set xWSTRg = Sheets("xTRgWs_Sheet")
xTRg.Copy
xWSTRg.Paste Destination:=xWSTRg.Range("A1")
ws.Activate
For i = (titlerow + xTRg.Rows.Count) To lr
On Error Resume Next
If ws.Cells(i, vcol) <> "" And Application.WorksheetFunction.Match(ws.Cells(i, vcol), ws.Columns(icol), 0) = 0 Then
ws.Cells(ws.Rows.Count, icol).End(xlUp).Offset(1) = ws.Cells(i, vcol)
End If
Next
myarr = Application.WorksheetFunction.Transpose(ws.Columns(icol).SpecialCells(xlCellTypeConstants))
ws.Columns(icol).Clear
For i = 2 To UBound(myarr)
ws.Range(title).AutoFilter field:=vcol, Criteria1:=myarr(i) & ""
If Not Evaluate("=ISREF('" & myarr(i) & "'!A1)") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = myarr(i) & ""
Else
Sheets(myarr(i) & "").Move after:=Worksheets(Worksheets.Count)
End If
xWSTRg.Range(title).Copy
Sheets(myarr(i) & "").Paste Destination:=Sheets(myarr(i) & "").Range("A1")
ws.Range("A" & (titlerow + xTRg.Rows.Count) & ":A" & lr).EntireRow.Copy Sheets(myarr(i) & "").Range("A" & (titlerow + xTRg.Rows.Count))
Sheets(myarr(i) & "").Columns.AutoFit
Next
xWSTRg.Delete
ws.AutoFilterMode = False
ws.Activate
Application.DisplayAlerts = True
End Sub

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

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

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

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

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

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

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

Κώδικας VBA: Διαχωρίστε έναν μεγάλο πίνακα σε πολλούς πίνακες κατά αριθμό σειρών:

Sub Splitdatabyrows()
'Updated by Extendoffice 
Dim WorkRng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xWs As Worksheet
Dim xTRg As Range
Dim xNTRg As Range
Dim xIER
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set xTRg = Application.InputBox("Please select the header row:", xTitleId, "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set WorkRng = Application.InputBox("Please select the data range(exclude the header row):", xTitleId, WorkRng.Address, Type:=8)
If TypeName(WorkRng) = "Nothing" Then Exit Sub
SplitRow = Application.InputBox("Split Row Num", xTitleId, Type:=1)
If SplitRow = 0 Then Exit Sub
Set xWs = WorkRng.Parent
Set xRow = WorkRng.Rows(1)
xIER = WorkRng.Rows.Count
xIER = WorkRng.Row + xIER - 1
Application.ScreenUpdating = False
For i = 1 To WorkRng.Rows.Count Step SplitRow
    resizeCount = SplitRow
    If (xIER - xRow.Row + 1) < SplitRow Then
        resizeCount = (xIER - xRow.Row + 1)
    End If
    xRow.Resize(resizeCount).Copy
    Set xWs = Application.Worksheets.Add(after:=Application.Worksheets(Application.Worksheets.Count))
    If xIER > (xRow.Row + SplitRow - 1) Then
        xWs.Name = xRow.Row & " - " & (xRow.Row + SplitRow - 1)
    ElseIf xIER = xRow.Row Then
        xWs.Name = xRow.Row
    Else
        xWs.Name = xRow.Row & " - " & xIER
    End If
    Application.ActiveSheet.Range("A1").PasteSpecial
    Set xNTRg = Application.ActiveSheet.Range("A1")
    xTRg.Copy
    xNTRg.Insert
    Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

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

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

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

6. Στη συνέχεια, κάντε κλικ στο κουμπί OK κουμπί, ο κύριος πίνακας έχει χωριστεί σε πολλά φύλλα εργασίας με βάση τον αριθμό των σειρών όπως φαίνεται παρακάτω στιγμιότυπο οθόνης:

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

Μπορεί οι παραπάνω κωδικοί να είναι δύσκολοι για τους περισσότερους χρήστες, εδώ θα εισαγάγω ένα καταπληκτικό χαρακτηριστικό-Διαχωρίστε τα δεδομένα of Kutools για Excel. Με αυτό το βοηθητικό πρόγραμμα, μπορείτε να χωρίσετε έναν μεγάλο πίνακα σε πολλούς πίνακες ανά στήλη κλειδιού ή αριθμό σειρών γρήγορα και εύκολα.

Μετά την εγκατάσταση Kutools για Excel, κάντε το ως εξής:

1. Επιλέξτε το εύρος δεδομένων που θέλετε να χωρίσετε και, στη συνέχεια, κάντε κλικ Kutools Plus > Διαχωρίστε τα δεδομένα, δείτε το στιγμιότυπο οθόνης:

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

(1.) Επιλέξτε Ειδική στήλη or Διορθώθηκαν οι σειρές από το Διαχωρισμός με βάση ενότητα όπως χρειάζεστε?

(2.) Καθορίστε το όνομα των νέων φύλλων εργασίας από το Κανόνες που αναπτυσσόμενη λίστα, μπορείτε να προσθέσετε το Πρόθεμα or Κατάληξη και στα ονόματα των φύλλων.

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

Διαχωρίστε τον πίνακα σε πολλούς πίνακες ανά τιμή στήλης	Διαχωρίστε τον πίνακα σε πολλούς πίνακες κατά αριθμό σειρών

Κάντε κλικ για λήψη του Kutools για Excel και δωρεάν δοκιμή τώρα!

Σχετικά άρθρα:

---

Τα καλύτερα εργαλεία παραγωγικότητας του Office

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

• Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
• Συγχώνευση κελιών / σειρών / στηλών και τήρηση δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές και άθροισμα / μέσος όρος... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
• Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
• Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
• Αγαπημένα και γρήγορη εισαγωγή τύπων, Σειρά, Διαγράμματα και Εικόνες; Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
• Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
• Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
• Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
• Ομαδοποίηση συγκεντρωτικού πίνακα κατά αριθμός εβδομάδας, ημέρα εβδομάδας και πολλά άλλα ... Εμφάνιση ξεκλειδωμένων, κλειδωμένων κελιών με διαφορετικά χρώματα. Επισημάνετε τα κελιά που έχουν τύπο / όνομα...

Διαβάστε περισσότερα ... Πλήρεις δυνατότητες Δωρεάν δοκιμή 30 ημερών... Αγορά... 

---

Office Tab - φέρνει τη διεπαφή με καρτέλες στο Office και διευκολύνει την εργασία σας

• Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
• Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
• Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!

Διαβάστε περισσότερα ... Πλήρεις δυνατότητες Δωρεάν δοκιμή 30 ημερών... Αγορά...