Πώς να μεταφέρετε εύκολα και γρήγορα δεδομένα εμβέλειας και στοίβας στο Excel;
Για παράδειγμα, υπάρχουν ορισμένα δεδομένα που εμφανίζονται σε ομάδες και τώρα θέλω να μεταφέρω το εύρος και να στοιβάζω τα δεδομένα σε κάθε στήλη όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Σε αυτό το άρθρο, θα παρουσιάσω τις μεθόδους σε αυτήν την εργασία στο Excel.
Μεταφορά και στοίβα δεδομένα με VBA
Μεταφορά και στοίβα δεδομένων με διάσταση πίνακα μεταφοράς
Μεταφορά και στοίβα δεδομένα με VBA
Μπορείτε να εφαρμόσετε έναν κωδικό VBA για τη μεταφορά και τη στοίβα δεδομένων.
1. Επιλέξτε δεδομένα εκτός από τις κεφαλίδες στηλών και πατήστε Alt + F11 πλήκτρα για ενεργοποίηση Microsoft Visual Basic για εφαρμογές παράθυρο.
2. κλικ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον παρακάτω κώδικα στο Μονάδα μέτρησης.
VBA: Μεταφορά και στοίβα δεδομένων
Sub ConvertTableToList()
'UpdatebyExtendoffice20161121
Const TEST_COLUMN As String = "A"
Dim i As Long, j As Long
Dim iLastRow As Long
Dim iLastCol As Long
Application.ScreenUpdating = False
With ActiveSheet
iLastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
For i = iLastRow To 2 Step -1
iLastCol = .Cells(i, .Columns.Count).End(xlToLeft).Column
For j = iLastCol To 3 Step -1
.Rows(i + 1).Insert
.Cells(i + 1, 2).Value = .Cells(i, j).Value
.Cells(i, j).Value = ""
Next j
Next i
.Rows(1).Delete
End With
Application.ScreenUpdating = True
End Sub
3. Τύπος F5 κλειδί, και στη συνέχεια τα δεδομένα έχουν μεταφερθεί και στοιβάζονται. Δείτε το στιγμιότυπο οθόνης:
Σημείωση: Στον κώδικα VBA, το Α υποδεικνύει την τοποθέτηση των δεδομένων μεταφοράς στη στήλη Α του ενεργού φύλλου και την αντικατάσταση των αρχικών δεδομένων στη στήλη A.
Μεταφορά και στοίβα δεδομένων με διάσταση πίνακα μεταφοράς
Εάν θέλετε να μεταφέρετε γρήγορα και εύκολα δεδομένα εύρους και στοίβας δεδομένων χωρίς κωδικό VBA, μπορείτε να κάνετε αίτηση Kutools για Excel'S Μεταφορά διάστασης πίνακα χρησιμότητα.
Kutools για Excel, με περισσότερα από 300 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. |
Μετά την εγκατάσταση Kutools για Excel, κάντε τα παρακάτω :(Δωρεάν λήψη Kutools για Excel τώρα!)
1. Επιλέξτε τα δεδομένα που χρησιμοποιείτε, κάντε κλικ στο Kutools > Σειρά > Μεταφορά διαστάσεων πίνακα. Δείτε το στιγμιότυπο οθόνης:
2. Στο παράθυρο διαλόγου, επιλέξτε Σταυρός πίνακας για λίστα και επιλέξτε ένα κελί στο οποίο θέλετε να τοποθετήσετε τα μεταφερόμενα δεδομένα Εύρος αποτελεσμάτων (μονό κελί) πλαίσιο κειμένου. Δείτε το στιγμιότυπο οθόνης:
3. κλικ Ok. Τώρα το εύρος έχει μεταφερθεί και στοιβάζεται σε στήλες.
Μεταφορά δεδομένων εύρους και στοίβας
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!