Το σεμινάριο δείχνει μερικούς γρήγορους τρόπους για να αναποδογυρίσετε πίνακες στο Excel κάθετα και οριζόντια διατηρώντας την αρχική μορφοποίηση και τους τύπους.

Η αναστροφή των δεδομένων στο Excel ακούγεται σαν μια τετριμμένη εργασία με ένα κλικ, αλλά παραδόξως δεν υπάρχει τέτοια ενσωματωμένη επιλογή. Σε περιπτώσεις που πρέπει να αντιστρέψετε τη σειρά των δεδομένων σε μια στήλη που είναι τοποθετημένη αλφαβητικά ή από το μικρότερο προς το μεγαλύτερο, μπορείτε προφανώς να χρησιμοποιήσετε τη λειτουργία Ταξινόμησης του Excel. Πώς όμως μπορείτε να αντιστρέψετε μια στήλη με μη ταξινομημένα δεδομένα; Ή, πώς μπορείτε να αντιστρέψετε τη σειρά των δεδομένων σε έναν πίνακα οριζόντια σε γραμμές;Θα λάβετε όλες τις απαντήσεις σε λίγο.

Αναστροφή δεδομένων στο Excel κάθετα

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

Πώς να αναποδογυρίσετε μια στήλη στο Excel

Για να αντιστρέψετε τη σειρά των δεδομένων σε μια στήλη κάθετα, εκτελέστε τα εξής βήματα:

1. Προσθέστε μια βοηθητική στήλη δίπλα στη στήλη που θέλετε να αναποδογυρίσετε και συμπληρώστε τη στήλη αυτή με μια ακολουθία αριθμών, ξεκινώντας από το 1. Αυτή η συμβουλή δείχνει πώς αυτό μπορεί να γίνει αυτόματα.
2. Ταξινομήστε τη στήλη των αριθμών σε φθίνουσα σειρά. Για το σκοπό αυτό, επιλέξτε οποιοδήποτε κελί στη βοηθητική στήλη, μεταβείτε στο πεδίο Καρτέλα δεδομένων >, Ταξινόμηση & φίλτρο και κάντε κλικ στο κουμπί Ταξινόμηση από το μεγαλύτερο στο μικρότερο κουμπί (ZA).

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

Τώρα μπορείτε να διαγράψετε με ασφάλεια τη βοηθητική στήλη, αφού δεν τη χρειάζεστε πλέον.

Συμβουλή: Πώς να συμπληρώσετε γρήγορα μια στήλη με σειριακούς αριθμούς

Ο γρηγορότερος τρόπος για να συμπληρώσετε μια στήλη με μια ακολουθία αριθμών είναι να χρησιμοποιήσετε τη λειτουργία αυτόματης συμπλήρωσης του Excel:

• Πληκτρολογήστε 1 στο πρώτο κελί και 2 στο δεύτερο κελί (κελιά B2 και B3 στο παρακάτω στιγμιότυπο).
• Επιλέξτε τα κελιά όπου μόλις εισαγάγατε τους αριθμούς και κάντε διπλό κλικ στην κάτω δεξιά γωνία της επιλογής.

Αυτό είναι όλο! Το Excel θα γεμίσει αυτόματα τη στήλη με σειριακούς αριθμούς μέχρι το τελευταίο κελί με δεδομένα στη διπλανή στήλη.

Πώς να αναποδογυρίσετε έναν πίνακα στο Excel

Η παραπάνω μέθοδος λειτουργεί επίσης για την αντιστροφή της σειράς των δεδομένων σε πολλαπλές στήλες:

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

Συμβουλή. Αν θέλετε να εναλλαγή γραμμών και στηλών , χρησιμοποιήστε τη συνάρτηση TRANSPOSE του Excel ή άλλους τρόπους μεταφοράς δεδομένων στο Excel.

Πώς να αναποδογυρίσετε στήλες στο Excel χρησιμοποιώντας έναν τύπο

Ένας άλλος τρόπος για να αναποδογυρίσετε μια στήλη είναι με τη χρήση αυτού του γενικού τύπου:

INDEX( εύρος , ROWS( εύρος ))

Για το σύνολο δεδομένων του δείγματός μας, ο τύπος έχει ως εξής:

=INDEX($A$2:$A$7,ROWS(A2:$A$7))

...και αντιστρέφει τη στήλη Α άψογα:

Πώς λειτουργεί αυτή η φόρμουλα

Στο επίκεντρο του τύπου βρίσκεται η συνάρτηση INDEX(array, row_num, [column_num]), η οποία επιστρέφει την τιμή ενός στοιχείου στο array με βάση τους αριθμούς γραμμών ή/και στηλών που καθορίζετε.

Στον πίνακα, τροφοδοτείτε ολόκληρη τη λίστα που θέλετε να αναποδογυρίσετε (A2:A7 σε αυτό το παράδειγμα).

Ο αριθμός των γραμμών υπολογίζεται από τη συνάρτηση ROWS. Στην απλούστερη μορφή της, η ROWS(array) επιστρέφει τον αριθμό των γραμμών στο array Στον τύπο μας, είναι η έξυπνη χρήση των σχετικών και απόλυτων αναφορών που κάνει το τέχνασμα της "αναστροφής στήλης":

• Για το πρώτο κελί (B2), το ROWS(A2:$A$7) επιστρέφει 6, οπότε το INDEX παίρνει το τελευταίο στοιχείο της λίστας (το 6ο στοιχείο).
• Στο δεύτερο κελί (B3), η σχετική αναφορά A2 αλλάζει σε A3, συνεπώς το ROWS(A3:$A$7) επιστρέφει 5, αναγκάζοντας το INDEX να πάρει το προτελευταίο στοιχείο.

Με άλλα λόγια, το ROWS δημιουργεί ένα είδος μειούμενου μετρητή για το INDEX, έτσι ώστε να κινείται από το τελευταίο στοιχείο προς το πρώτο στοιχείο.

Συμβουλή: Πώς να αντικαταστήσετε τύπους με τιμές

Τώρα που έχετε δύο στήλες δεδομένων, μπορεί να θέλετε να αντικαταστήσετε τους τύπους με υπολογισμένες τιμές και στη συνέχεια να διαγράψετε μια επιπλέον στήλη. Για το σκοπό αυτό, αντιγράψτε τα κελιά του τύπου, επιλέξτε τα κελιά όπου θέλετε να επικολλήσετε τις τιμές και πατήστε Shift+F10 και στη συνέχεια V , που είναι ο ταχύτερος τρόπος για να εφαρμόσετε την επιλογή Paste Special> Values του Excel.

Για περισσότερες πληροφορίες, ανατρέξτε στην ενότητα Πώς να αντικαταστήσετε τύπους με τιμές στο Excel.

Πώς να αναποδογυρίσετε στήλες στο Excel με την VBA

Αν έχετε κάποια εμπειρία με την VBA, μπορείτε να χρησιμοποιήσετε την ακόλουθη μακροεντολή για να αντιστρέψετε τη σειρά των δεδομένων κάθετα σε μία ή περισσότερες στήλες:

Dim Rng As Range Dim WorkRng As Range Dim Arr As Variant Dim i As Integer , j As Integer , k As Integer On Error Resume Next xTitleId = "Flip columns vertically" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range" , xTitleId, WorkRng.Address, Type :=8) Arr = WorkRng.Formula Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For j = 1 ToUBound (Arr, 2) k = UBound (Arr, 1) For i = 1 To UBound (Arr, 1) / 2 xTemp = Arr(i, j) Arr(i, j) = Arr(k, j) Arr(k, j) Arr(k, j) = xTemp k = k - 1 Next Next WorkRng.Formula = Arr Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

Πώς να χρησιμοποιήσετε τη μακροεντολή Flip Columns

1. Ανοίξτε το παράθυρο Microsoft Visual Basic for Applications ( Alt + F11 ).
2. Κάντε κλικ στο Εισαγωγή >, Ενότητα , και επικολλήστε τον παραπάνω κώδικα στο παράθυρο Code.
3. Εκτελέστε τη μακροεντολή ( F5 ).
4. Το Αναποδογυρισμένες στήλες εμφανίζεται παράθυρο διαλόγου που σας ζητά να επιλέξετε ένα εύρος για αναστροφή:

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

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

Πώς να αναποδογυρίσετε δεδομένα στο Excel διατηρώντας τη μορφοποίηση και τους τύπους

Με τις παραπάνω μεθόδους, μπορείτε εύκολα να αντιστρέψετε τη σειρά των δεδομένων σε μια στήλη ή έναν πίνακα. Τι γίνεται όμως αν θέλετε να αντιστρέψετε όχι μόνο τις τιμές, αλλά και τις μορφές των κελιών; Επιπλέον, τι γίνεται αν κάποια δεδομένα στον πίνακα σας βασίζονται σε τύπους και θέλετε να αποτρέψετε το σπάσιμο των τύπων κατά την αντιστροφή των στηλών; Σε αυτή την περίπτωση, μπορείτε να χρησιμοποιήσετε την εντολή Flip χαρακτηριστικό που περιλαμβάνεται στην Ultimate Suite για το Excel.

Ας υποθέσουμε ότι έχετε έναν όμορφα μορφοποιημένο πίνακα όπως φαίνεται παρακάτω, όπου ορισμένες στήλες περιέχουν τιμές και ορισμένες στήλες έχουν τύπους:

Θέλετε να αναποδογυρίσετε τις στήλες του πίνακα σας διατηρώντας τόσο τη μορφοποίηση (γκρίζα σκίαση για γραμμές με μηδενική ποσότητα) όσο και τους σωστά υπολογισμένους τύπους. Αυτό μπορεί να γίνει με δύο γρήγορα βήματα:

1. Με επιλεγμένο οποιοδήποτε κελί του πίνακα σας, μεταβείτε στην επιλογή Δεδομένα Ablebits tab>, Μετασχηματισμός και κάντε κλικ στο κουμπί Flip >, Κάθετη αναστροφή .
2. Στο Κάθετη αναστροφή παραθύρου διαλόγου, ρυθμίστε τις ακόλουθες επιλογές:
   • Στο Επιλέξτε το εύρος σας πλαίσιο, ελέγξτε την αναφορά εύρους και βεβαιωθείτε ότι δεν περιλαμβάνεται η γραμμή κεφαλίδας.
   • Επιλέξτε το Ρύθμιση αναφορών κελιών επιλογή και ελέγξτε το Διατήρηση μορφοποίησης κουτί.
   • Προαιρετικά, επιλέξτε Δημιουργήστε ένα αντίγραφο ασφαλείας (επιλεγμένο από προεπιλογή).
   • Κάντε κλικ στο Flip κουμπί.

Η σειρά των δεδομένων στον πίνακα αντιστρέφεται, η μορφοποίηση διατηρείται και οι αναφορές κελιών στους τύπους προσαρμόζονται κατάλληλα:

Αναστροφή δεδομένων στο Excel οριζόντια

Μέχρι στιγμής σε αυτό το σεμινάριο, έχουμε αναποδογυρίσει στήλες ανάποδα. Τώρα, ας δούμε πώς να αντιστρέψουμε τη σειρά των δεδομένων οριζόντια, δηλαδή να αναποδογυρίσουμε έναν πίνακα από αριστερά προς τα δεξιά.

Πώς να αναποδογυρίσετε σειρές στο Excel

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

1. Χρησιμοποιήστε τη λειτουργία Paste Special> Transpose για να μετατρέψετε τις στήλες σε γραμμές. Ως αποτέλεσμα, ο πίνακάς σας θα υποστεί αυτόν τον μετασχηματισμό:
2. Προσθέστε μια βοηθητική στήλη με αριθμούς όπως στο πρώτο παράδειγμα και, στη συνέχεια, ταξινομήστε με βάση τη βοηθητική στήλη. Το ενδιάμεσο αποτέλεσμά σας θα μοιάζει κάπως έτσι:
3. Χρήση Ειδική επικόλληση> Transpose άλλη μια φορά για να γυρίσετε το τραπέζι σας πίσω:

Σημείωση. Εάν τα δεδομένα προέλευσης περιέχουν τύπους, ενδέχεται να καταστραφούν κατά τη διάρκεια της διαδικασίας μεταφοράς. Σε αυτή την περίπτωση, θα πρέπει να επαναφέρετε τους τύπους χειροκίνητα. Ή μπορείτε να χρησιμοποιήσετε το εργαλείο Flip που περιλαμβάνεται στην Ultimate Suite και θα προσαρμόσει αυτόματα όλες τις αναφορές για εσάς.

Αντίστροφη σειρά δεδομένων οριζόντια με την VBA

Ακολουθεί μια απλή μακροεντολή που μπορεί να αναποδογυρίσει γρήγορα τα δεδομένα στον πίνακα του Excel οριζόντια:

Sub FlipDataHorizontally() Dim Rng As Range Dim WorkRng As Range Dim Arr As Variant Dim i As Integer , j As Integer , k As Integer On Error Resume Next xTitleId = "Flip Data Horizontally" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range" , xTitleId, WorkRng.Address, Type :=8) Arr = WorkRng.Formula Application.ScreenUpdating = False Application.Calculation =xlCalculationManual For i = 1 To UBound (Arr, 1) k = UBound (Arr, 2) For j = 1 To UBound (Arr, 2) / 2 xTemp = Arr(i, j) Arr(i, j) = Arr(i, k) Arr(i, k) = xTemp k = k - 1 Next Next WorkRng.Formula = Arr Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

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

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

Αναποδογυρίστε δεδομένα σε γραμμές με το Ultimate Suite for Excel

Ομοίως με την αναστροφή στηλών, μπορείτε να χρησιμοποιήσετε το Ultimate Suite for Excel για να αντιστρέψετε τη σειρά των δεδομένων στις γραμμές. Απλά επιλέξτε μια σειρά κελιών που θέλετε να αντιστρέψετε, μεταβείτε στο πεδίο Δεδομένα Ablebits tab>, Μετασχηματισμός και κάντε κλικ στο κουμπί Flip >, Οριζόντια αναστροφή .

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

Κάντε κλικ στο Flip και το τραπέζι σας θα αντιστραφεί από αριστερά προς τα δεξιά στο λεπτό.

Έτσι αναποδογυρίζετε τα δεδομένα στο Excel. Σας ευχαριστώ για την ανάγνωση και ελπίζω να σας δω στο blog μας την επόμενη εβδομάδα!