Πώς να χωρίσετε δεδομένα σε πολλά φύλλα εργασίας με βάση τη στήλη στο Excel;
Ας υποθέσουμε ότι έχετε ένα φύλλο εργασίας με τεράστιες σειρές δεδομένων και τώρα, πρέπει να χωρίσετε τα δεδομένα σε πολλά φύλλα εργασίας με βάση το Όνομα στήλη (δείτε το παρακάτω στιγμιότυπο οθόνης) και τα ονόματα εισάγονται τυχαία. Ίσως μπορείτε να τα ταξινομήσετε πρώτα και μετά να τα αντιγράψετε και να τα επικολλήσετε ένα προς ένα σε άλλα νέα φύλλα εργασίας. Αλλά αυτό θα χρειαστεί την υπομονή σας για να αντιγράψετε και να επικολλήσετε επανειλημμένα. Σήμερα, θα μιλήσω για μερικά γρήγορα κόλπα για την επίλυση αυτού του έργου.
Διαχωρίστε τα δεδομένα σε πολλά φύλλα εργασίας με βάση τη στήλη με τον κώδικα VBA
Διαχωρίστε τα δεδομένα σε πολλά φύλλα εργασίας με βάση τη στήλη με το Kutools για Excel
Διαχωρίστε τα δεδομένα σε πολλά φύλλα εργασίας με βάση τη στήλη με τον κώδικα VBA
Εάν θέλετε να διαχωρίσετε τα δεδομένα με βάση την τιμή της στήλης γρήγορα και αυτόματα, ο ακόλουθος κώδικας VBA είναι μια καλή επιλογή. Κάντε το ως εξής:
1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο παράθυρο της ενότητας.
Sub Splitdatabycol()
'updateby 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
Dim xWS 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
Set xWS = Sheets.Add(after:=Worksheets(Worksheets.Count))
xWS.Name = myarr(i) & ""
Else
xWS.Move after:=Worksheets(Worksheets.Count)
End If
xWSTRg.Range(title).Copy
xWS.Paste Destination:=xWS.Range("A1")
ws.Range("A" & (titlerow + xTRg.Rows.Count) & ":A" & lr).EntireRow.Copy xWS.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και όλα τα δεδομένα στο ενεργό φύλλο εργασίας χωρίζονται σε πολλά φύλλα εργασίας με βάση την τιμή της στήλης. Και τα φύλλα εργασίας διαχωρίζονται με τα ονόματα των διαχωρισμένων κελιών. Δείτε το στιγμιότυπο οθόνης:
Note: Τα διαχωρισμένα φύλλα εργασίας τοποθετούνται στο τέλος του βιβλίου εργασίας όπου βρίσκεται το κύριο φύλλο εργασίας.
Διαχωρίστε τα δεδομένα σε πολλά φύλλα εργασίας με βάση τη στήλη με το Kutools για Excel
Ως αρχάριος του Excel, αυτός ο μακρύς κώδικας VBA είναι κάπως δύσκολος για εμάς, και οι περισσότεροι από εμάς δεν γνωρίζουμε καν πώς να τροποποιήσουμε τον κώδικα ως ανάγκη μας. Εδώ, θα σας παρουσιάσω ένα πολυλειτουργικό εργαλείο--Kutools για Excel, της Διαχωρίστε τα δεδομένα Το βοηθητικό πρόγραμμα όχι μόνο μπορεί να σας βοηθήσει να χωρίσετε δεδομένα σε πολλά φύλλα εργασίας με βάση τη στήλη, αλλά και να διαχωρίσετε τα δεδομένα με βάση τον αριθμό.
Σημείωση:Για να το εφαρμόσετε Διαχωρίστε τα δεδομένα, πρώτα, πρέπει να κατεβάσετε το Kutools για Excelκαι, στη συνέχεια, εφαρμόστε τη λειτουργία γρήγορα και εύκολα.
Μετά την εγκατάσταση Kutools για Excel, κάντε το ως εξής:
1. Επιλέξτε το εύρος δεδομένων που θέλετε να διαχωρίσετε.
2. Κλίκ Kutools Plus > Φύλλο εργασίας > Διαχωρίστε τα δεδομένα, δείτε το στιγμιότυπο οθόνης:
3. Στην Διαχωρισμός δεδομένων σε πολλά φύλλα εργασίας πλαίσιο διαλόγου, πρέπει:
1). Επιλέγω Ειδική στήλη επιλογή του Διαχωρισμός με βάση ενότητα και επιλέξτε την τιμή της στήλης στην οποία θέλετε να διαιρέσετε τα δεδομένα με βάση την αναπτυσσόμενη λίστα. (Εάν τα δεδομένα σας έχουν κεφαλίδες και θέλετε να τα εισαγάγετε σε κάθε νέο φύλλο εργασίας, διαβάστε Τα δεδομένα μου έχουν κεφαλίδες επιλογή.)
2). Στη συνέχεια, μπορείτε να καθορίσετε τα ονόματα των φύλλων εργασίας που διαχωρίζονται, κάτω από το Νέο όνομα φύλλων εργασίας ενότητα, καθορίστε τους κανόνες ονομάτων φύλλου εργασίας από το Κανόνες που αναπτυσσόμενη λίστα, μπορείτε να προσθέσετε το Πρόθεμα or Κατάληξη για τα ονόματα των φύλλων επίσης.
3). Κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:
4. Τώρα τα δεδομένα χωρίζονται σε πολλά φύλλα εργασίας σε ένα νέο βιβλίο εργασίας.
Κάντε κλικ για λήψη του Kutools για Excel και δωρεάν δοκιμή τώρα!
Διαχωρίστε τα δεδομένα σε πολλά φύλλα εργασίας με βάση τη στήλη με το Kutools για Excel
Kutools για Excel περιλαμβάνει περισσότερα από 300 εύχρηστα εργαλεία Excel. Δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Κατεβάστε τη δωρεάν δοκιμή τώρα!
Σχετικό άρθρο:
Πώς να διαχωρίσετε τα δεδομένα σε πολλά φύλλα εργασίας κατά τον αριθμό των σειρών;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!