Πώς να μετατρέψετε τον πίνακα διασταύρωσης (δισδιάστατος πίνακας) σε λίστα στο Excel;
Γνωρίζετε πώς να μετατρέψετε έναν σταυρό πίνακα (δισδιάστατο πίνακα) σε έναν πίνακα λίστας (μονοδιάστατος πίνακας) στο Microsoft Excel; Για ορισμένους λόγους, ίσως χρειαστεί να μετατρέψετε έναν πίνακα (με επικεφαλίδες γραμμών και επικεφαλίδες στηλών) σε μια επίπεδη λίστα στο Excel. Τα παρακάτω κόλπα μπορούν να σας βοηθήσουν να μετατρέψετε μια διασταύρωση σε επίπεδη λίστα εύκολα και γρήγορα:
- Μετατροπή cross table σε λίστα στο Excel με VBA
- Μετατροπή διασταυρούμενου πίνακα σε λίστα με το Excel με το Kutools για Excel
Ας υποθέσουμε ότι έχετε ένα τραπέζι και πρέπει να το μετατρέψετε σε λίστα ως εξής.
Διαγώνιος πίνακας (με επικεφαλίδες σειρών και επικεφαλίδες στηλών) | Πίνακας λιστών (μονοδιάστατος πίνακας) |
Μετατροπή cross table σε λίστα στο Excel με VBA
Η ακόλουθη μακροεντολή VBA μπορεί να σας βοηθήσει να μετατρέψετε γρήγορα όλους τους πίνακες στα ενεργά φύλλα εργασίας σε επίπεδες λίστες.
Βήμα 1: Κρατήστε πατημένο το άλλος + F11 κλειδιά στο Excel και ανοίγει το παράθυρο της Microsoft Visual Basic for Applications.
Βήμα 2: Κάντε κλικ στο κουμπί Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε την ακόλουθη μακροεντολή στο παράθυρο της ενότητας.
Ο πίνακας VBA για μεταφορά τραπέζης στη λίστα:
Sub ConvertTableToList ()
Συνεχίστε TEST_COLUMN As String = "A"
Dim i ως μακρύ, j όσο καιρό
Dim iLastRow Όσο καιρό
Dim iLastCol όσο καιρό
Application.ScreenUpdating = False
Με το ActiveSheet
iLastRow = .Cells (.Rows.Count, TEST_COLUMN). Τέλος (xlUp). Σειρά
Για i = iLastRow To 2 Βήμα -1
iLastCol = .Cells (i, .Columns.Count). End (xlToLeft). Στήλη
Για j = iLastCol To 3 Step -1
. Γραμμές (i + 1). Εισαγωγή
.Cells (i + 1, 2). Value = .Cells (i, j). Τιμή
. Κελιά (i, j). Τιμή = ""
Επόμενο j
Επόμενο i
. Γραμμές (1). Διαγραφή
Τέλος με
Application.ScreenUpdating = True
Sub End
Βήμα 3: Κάντε κλικ στο F5 κλειδί για την εκτέλεση αυτής της μακροεντολής.
Στη συνέχεια, θα δείτε τη λίστα που μετατράπηκε να εμφανίζεται ως το ακόλουθο στιγμιότυπο οθόνης:
Σημείωση:
1. Αυτή η μακροεντολή VBA χάνει ορισμένα δεδομένα του αρχικού πίνακα, όπως κεφαλίδες ή άλλα. Σε αυτήν την περίπτωση, οι κεφαλίδες (Όνομα, Βαθμός και Κατηγορία) χάνονται.
2. Μπορείτε να αλλάξετε το As String = "A", για να ικανοποιήσετε τις ανάγκες σας. Για παράδειγμα, εάν ο σταυρός πίνακας αναφέρεται στη στήλη E, θα πρέπει αντί να "E" του "A".
3. Και αν υπάρχουν άλλα δεδομένα στο φύλλο εργασίας, μερικές φορές τα δεδομένα στη λίστα θα είναι λανθασμένα μετά τη μετατροπή ενός πίνακα.
Μετατροπή πολλαπλών πινάκων σε λίστες στο Excel με Kutools για Excel
Εάν έχετε Kutools για Excel εγκατεστημένο, μπορείτε να το χρησιμοποιήσετε Μεταφορά διαστάσεων πίνακα εργαλείο για γρήγορη μετατροπή διασταυρούμενων πινάκων σε επίπεδη λίστα.
Kutools για Excel περιλαμβάνει περισσότερα από 300 εύχρηστα εργαλεία Excel. Δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Αποκτήστε το τώρα.
Βήμα 1: Επιλέξτε τον πίνακα που θα τον μετατρέψετε σε λίστα.
Βήμα 2: Κάντε κλικ στο Kutools >Τροποποίηση > Μεταφορά διάστασης πίνακα. Δείτε το παρακάτω στιγμιότυπο οθόνης:
Βήμα 3: Στο παράθυρο διαλόγου Transpose Table Dimensions, επιλέξτε το Σταυρός πίνακας για λίστα και επιλέξτε το Εύρος αποτελεσμάτων κάνοντας κλικ στο κουμπί.
Βήμα 4: Κάντε κλικ στο κουμπί OK κουμπί.
Στη συνέχεια, θα δείτε ότι ο αρχικός πίνακας μετατρέπεται σε επίπεδη λίστα ως εξής στιγμιότυπο οθόνης:
Μεταφορά διαστάσεων πίνακα μπορεί επίσης να μετατρέψει τη λίστα σε πίνακα διασταύρωσης. Για περισσότερες πληροφορίες, μεταβείτε στη διεύθυνση Μεταφορά διαστάσεων πίνακα.
Σχετικά άρθρα:
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!