Note: The other languages of the website are Google-translated. Back to English

Πώς να ταξινομήσετε δεδομένα σε πολλά φύλλα εργασίας ταυτόχρονα;

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

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


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

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

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

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

Κωδικός VBA: Ταξινόμηση δεδομένων σε πολλά φύλλα εργασίας ταυτόχρονα:

Sub SortAllSheets()
   'Updateby Extendoffice
   Dim WS      As Worksheet
   ActiveSheet.Range("a1:f1").Select
   Selection.Copy
   On Error Resume Next
   Application.ScreenUpdating = False
   For Each WS In Worksheets
      WS.Columns("A:F").Sort Key1:=WS.Columns("E"), Order1:=xlDescending
   Next WS
   ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteAll
   Application.ScreenUpdating = True
End Sub

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

Note: Στον παραπάνω κώδικα, A: F είναι το εύρος δεδομένων που θέλετε να ταξινομήσετε, E είναι το γράμμα στήλης στο οποίο θέλετε να ταξινομήσετε βάσει.


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

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

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (11)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δεν δουλεύει...
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς μπορώ να το κάνω αυτό να λειτουργεί για πολλές στήλες. Προσπαθώ να ταξινομήσω μερικά κατά τη στήλη Κ και άλλα με τη στήλη Μ και γνωρίζω τους ακριβείς αριθμούς φύλλων. Η στήλη M μου (όταν χρησιμοποιώ τον παραπάνω κωδικό) ταξινομείται μόνο κατά το Κ, όχι κατά Μ, επομένως δεν λειτουργεί. 
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
λειτούργησε σαν γούρι για μένα...ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
λειτουργεί καλά, αλλά πώς μπορώ να αποφύγω τη συμπερίληψη των επικεφαλίδων (π.χ. σειρά 1;)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Λούσι,
Για να ταξινομήσετε όλα τα φύλλα εκτός της σειράς κεφαλίδας, εφαρμόστε τον παρακάτω κώδικα vba: (Σημείωση: αλλάξτε τις αναφορές κελιών ανάλογα με τις ανάγκες σας)

Sub SortAllSheets()
'Ενημέρωση Extendoffice
Dim WS ως φύλλο εργασίας
Dim xIntR ως ακέραιος αριθμός
ActiveSheet.Range("A1:F1").Επιλέξτε
On Error Συνέχιση Επόμενη
Application.ScreenUpdating = False
Για κάθε WS σε φύλλα εργασίας
xIntR = Intersect(WS.UsedRange, WS.Range("A:F")).Σειρά.Count
WS.Range("A2:F" & xIntR).Κλειδί ταξινόμησης1:=WS.Range("A2:A" & xIntR), Order1:=xlΦθίνουσα
Επόμενο WS
Application.ScreenUpdating = True
Sub End

Παρακαλώ δοκιμάστε, ελπίζω ότι μπορεί να σας βοηθήσει!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Με την ελπίδα να το δείτε...! Αυτό λειτουργεί υπέροχα - αλλά περιλαμβάνει κελιά με τύπο αλλά χωρίς δεδομένα, δημιουργώντας κενά στις καρτέλες και ανακατεύοντας τα δεδομένα στις σειρές. Πρέπει να διατηρήσω αυτά τα κελιά στις καρτέλες μου καθώς αναζητούν ονόματα που έχουν προστεθεί στην "κύρια καρτέλα" Θέλω να ταξινομεί μόνο κελιά με ένα πραγματικό όνομα - μια γρήγορη λύση;;;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πολύ χρήσιμος κώδικας Ευχαριστώ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, αυτό είναι υπέροχο σας ευχαριστώ πολύ για αυτό! Το μόνο μου πρόβλημα με αυτόν τον κώδικα είναι ότι δεν εκτελείται στο πρώτο μου φύλλο. Εκτελείται στα υπόλοιπα φύλλα μου. Πώς θα το κάνω αυτό να εκτελεστεί σε όλα τα φύλλα; Είναι σαν ο κωδικός να παρακάμπτει το πρώτο φύλλο. Οποιαδήποτε βοήθεια θα εκτιμηθεί ιδιαιτέρως :)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Θέλω να χωρίσω τα δεδομένα σε πολλά βιβλία εργασίας και στη συνέχεια να προσθέσω την τιμή σε μία από τις στήλες..

Έχω ετοιμάσει τον κώδικα για να χωρίσω τα δεδομένα σε βιβλία εργασίας.. αλλά χρειάζομαι βοήθεια για την προσθήκη του συνόλου σε μια από τις στήλες
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μπορείτε να το εκτελέσετε χωρίς να συμπεριλάβετε όλα τα φύλλα; Δηλαδή να αφήσω κάποια φύλλα εκτός μακροεντολής;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό δεν φαινόταν να λειτουργεί για μένα. Έχω ένα τετράδιο εργασίας με 12 φύλλα ταξινομημένα ανά μήνες του έτους, το κάθε φύλλο περιέχει αντίστοιχα δεδομένα σχετικά με προϊόντα εταιρειών κ.λπ. Ο στόχος μου είναι να ταξινομήσω και να φιλτράρω όλα τα φύλλα του βιβλίου εργασίας. Θα ήθελα να έχω ένα φύλλο που θα λειτουργούσε ως γονικό φύλλο (π.χ. πρώτος μήνας του έτους), στο οποίο θα εκτελούσα μια λειτουργία φίλτρου ή ταξινόμησης (π.χ. ταξινόμηση A -> Z) και αυτόματα τα άλλα φύλλα ακολουθούν το ίδιο ταξινόμηση ή φίλτρο. Για παράδειγμα, όταν χρησιμοποιώ το φύλλο με την ένδειξη "Ιανουάριος", εάν για παράδειγμα επιλέξω τη στήλη "D" που περιλαμβάνει τις ημέρες του μήνα που θέλω με "αύξουσα" σειρά - κατά την πραγματοποίηση της ταξινόμησης A -> Z στο φύλλο "Ιανουάριος". , θέλω αυτό να επηρεάσει τα υπόλοιπα φύλλα με τη σειρά (Φεβ-Δεκ) με όλες τις ημέρες του μήνα ταξινομημένες Α -> Ω. Οποιαδήποτε αλλαγή γίνει στο φύλλο "Ιανουάριος" όσον αφορά την ταξινόμηση και το φιλτράρισμα, θα πρέπει επηρεάζουν τον ισολογισμό των φύλλων στο βιβλίο εργασίας.
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL