Πώς να μετακινήσετε κάθε άλλη σειρά στη στήλη στο Excel
Έχετε προσπαθήσει ποτέ να μετακινήσετε κάθε άλλη σειρά δεδομένων σε μια στήλη στο Excel, όπως να μετακινήσετε κάθε περίεργη σειρά σε μία στήλη και κάθε ομοιόμορφη σειρά στην άλλη στήλη, οι οποίες φαίνονται όπως παρακάτω στο στιγμιότυπο οθόνης. Εδώ βρίσκω μερικά κόλπα που μπορούν να χειριστούν αυτό το πρόβλημα.
Μετακινήστε κάθε άλλη σειρά στη στήλη με τον τύπο
Μετακινήστε κάθε άλλη σειρά στη στήλη με VBA
Μετακινήστε κάθε άλλη σειρά στη στήλη με το Kutools για Excel
Μετακινήστε κάθε άλλη σειρά στη στήλη με τον τύπο
Για τους περισσότερους χρήστες του Excel, η χρήση του τύπου για την επίλυση προβλημάτων στο Excel είναι ο ευκολότερος τρόπος.
1. Επιλέξτε ένα κελί δίπλα στα δεδομένα σας και πληκτρολογήστε αυτόν τον τύπο = IF (ISEVEN (ROW (B2)), B2, "") (Το B2 υποδεικνύει τα δεδομένα που θέλετε να λάβετε) και πατήστε εισάγετε και μετά σύρετε το αυτόματο γέμισμα για να συμπληρώσετε το εύρος που θέλετε να χρησιμοποιήσετε αυτόν τον τύπο. Τώρα κάθε δεύτερη σειρά δεδομένων έχει ληφθεί σε αυτήν τη στήλη.
2. Στη συνέχεια, επιλέξτε το άλλο κελί δίπλα στην παραπάνω στήλη και πληκτρολογήστε αυτόν τον τύπο = IF (ISODD (ROW (B3)), B3, "") (B3 είναι τα δεδομένα που θέλετε να λάβετε) και πατήστε εισάγετε και μετά σύρετε το αυτόματο γέμισμα για να συμπληρώσετε το εύρος που θέλετε να χρησιμοποιήσετε αυτόν τον τύπο. Τώρα κάθε τρίτη σειρά δεδομένων έχει ληφθεί σε αυτήν τη στήλη.
Μετακινήστε κάθε άλλη σειρά στη στήλη με VBA
Το ακόλουθο VBA μπορεί επίσης να μετακινήσει κάθε άλλη σειρά στη στήλη.
1. Τύπος F11 + Alt πλήκτρα μαζί στο πληκτρολόγιο για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στη συνέχεια κάντε κλικ στο κουμπί Κύριο θέμα > Μονάδα μέτρησης για να εισαγάγετε ένα νέο παράθυρο λειτουργικής μονάδας. Και μετά αντιγράψτε τον ακόλουθο κώδικα VBA στο παράθυρο.
VBA: Μετακίνηση κάθε άλλης σειράς στη στήλη.
Sub MoveRange()
'Updateby20140730A
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set InputRng = InputRng.Columns(1)
For i = 1 To InputRng.Rows.Count Step 2
OutRng.Resize(1, 2).Value = Array(InputRng.Cells(i, 1).Value, InputRng.Cells(i + 1, 1).Value)
Set OutRng = OutRng.Offset(1, 0)
Next
End Sub
3. κλικ τρέξιμο κουμπί ή F5 πλήκτρο στο πληκτρολόγιο και εμφανίζεται ένας διάλογος για να επιλέξετε ένα εύρος που θέλετε να μετακινήσετε. Δείτε το στιγμιότυπο οθόνης:
4. Στη συνέχεια κάντε κλικ στο κουμπί OK για να εμφανιστεί το άλλο παράθυρο διαλόγου για να επιλέξετε ένα κελί για έξοδο του αποτελέσματος. Δείτε το στιγμιότυπο οθόνης:
5. κλικ OKκαι μπορείτε να δείτε το αποτέλεσμα όπως φαίνεται παρακάτω:
Μετακινήστε κάθε άλλη σειρά στη στήλη με το Kutools για Excel
Εκτός από τους τύπους και το VBA, εάν έχετε εγκαταστήσει Kutools για Excel, μπορείτε να το χρησιμοποιήσετε Μετασχηματισμός εύρους χαρακτηριστικό για γρήγορη μετακίνηση κάθε άλλης σειράς στη στήλη.
Kutools για Excel περιλαμβάνει περισσότερα από 300 εύχρηστα εργαλεία Excel. Δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Αποκτήστε το τώρα
1. Επιλέξτε το εύρος που θέλετε να μετακινήσετε κάθε άλλη σειρά και κάντε κλικ στο Kutools > Μετατροπέας εύρους > Μετασχηματισμός εύρους. Δείτε το στιγμιότυπο οθόνης:
2. Στο Μετασχηματισμός εύρους διάλογος, ελέγξτε Μία στήλη για εύρος in Τύπος μετασχηματισμού ενότητα και ελέγξτε Σταθερή τιμή μετά επιλέξτε ή εισάγετε 2 στη λίστα στο Σειρές ανά εγγραφή Ενότητα. Δείτε το στιγμιότυπο οθόνης:
3. κλικ Ok για να ανοίξετε ένα παράθυρο διαλόγου για να επιλέξετε ένα μόνο κελί για να διαγράψετε το αποτέλεσμα, δείτε το στιγμιότυπο οθόνης:
4. Στη συνέχεια κάντε κλικ στο κουμπί OK. Μπορείτε να δείτε το αποτέλεσμα όπως φαίνεται παρακάτω:
Για περισσότερες πληροφορίες σχετικά με το Transform Range.
Σχετικά άρθρα:
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
