Μετάβαση στο κύριο περιεχόμενο

Πώς μπορείτε να ανταλλάξετε περιεχόμενο μεταξύ σειρών ή στηλών στο Excel;

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

Ανταλλαγή σειρών ή στηλών με κωδικό VBA

ανταλλάξτε σειρές ή στήλες γρήγορα και εύκολα με το Kutools για Excel

Μεταφέρετε δεδομένα από σειρές σε πολλές στήλες με το Kutools για Excel


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

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

Sub SwapTwoRange()
'Updateby Extendoffice
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant, arr2 As Variant
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1:", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Application.ScreenUpdating = False
arr1 = Rng1.Value
arr2 = Rng2.Value
Rng1.Value = arr2
Rng2.Value = arr1
Application.ScreenUpdating = True
End Sub

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

doc swap σειρές σειρών 01 01
1
doc swap σειρές σειρών 02 02

4. Αφού κάνετε κλικ Ok, τα δύο εύρη ανταλλάσσονται. Δείτε στιγμιότυπα οθόνης:

doc swap σειρές σειρών 01 01 2 doc swap σειρές σειρών 02 02

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

Kutools για Excel : με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες

Εάν έχετε εγκαταστήσει Kutools για Excel, μπορείτε να ανταλλάξετε γρήγορα δύο στήλες ή σειρές.

1. Πατήστε Kutools > Σειρά > Εύρος ανταλλαγής, Δείτε το στιγμιότυπο οθόνης:

2. Στο Σειρά ανταλλαγής , κάντε κλικ στην επιλογή  κουμπί από Εύρος ανταλλαγής 1 για να επιλέξετε τη στήλη Α που θέλετε να ανταλλάξετε και, στη συνέχεια, κάντε κλικ στο  κουμπί από Εύρος ανταλλαγής 2 για να επιλέξετε τη στήλη D. ( Σημείωση: Τα εύρη ανταλλαγής πρέπει να είναι ίδια στο ίδιο μέγεθος.)

doc swap σειρές σειρών 02 02

3. Στη συνέχεια κάντε κλικ στο κουμπί OK. Οι δύο στήλες έχουν αλλάξει και η μορφοποίηση κελιού αλλάζει επίσης. Δείτε στιγμιότυπα οθόνης:

doc swap σειρές σειρών 01 01 2 doc swap σειρές σειρών 02 02

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

Κατεβάστε και δωρεάν δοκιμή Kutools για Excel τώρα!



Μεταφέρετε δεδομένα από σειρές σε πολλές στήλες γρήγορα στο φύλλο εργασίας του Excel:

Με Kutools για Excel'S Μετασχηματισμός εύρους δυνατότητα, μπορείτε να μεταφέρετε γρήγορα τα δεδομένα από μία σειρά ή στήλη σε πολλές σειρές ή στήλες και αντίστροφα.

doc μεταφορά δεδομένων

Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα του Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Λήψη και δωρεάν δοκιμή τώρα!


Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα του Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Λήψη και δωρεάν δοκιμή τώρα!

Σχετικό άρθρο:

Πώς να ανταλλάξετε γρήγορα περιεχόμενα δύο κελιών στο Excel;

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

🤖 Kutools AI Aide: Επανάσταση στην ανάλυση δεδομένων με βάση: Ευφυής Εκτέλεση   |  Δημιουργία κώδικα  |  Δημιουργία προσαρμοσμένων τύπων  |  Αναλύστε δεδομένα και δημιουργήστε γραφήματα  |  Επίκληση Λειτουργιών Kutools...
Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

Περιγραφή


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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (7)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
EXCELENTE, ni me perdí, gracias por su aporte
Rated 5 out of 5
This comment was minimized by the moderator on the site
Okk is there any way we can create a MACRO for it to do it fast bcz it won't be possible everytime to copy that code from somewhere and put it out there to Swap that Rows and Columns .
This comment was minimized by the moderator on the site
or you can just hold the shift key and drag the column where you want it to go
This comment was minimized by the moderator on the site
I've tried the VBA code solution. It seemed to work fine until now. In the range i swap, there is a URL cell (i.e. hyperlink). Although the swap looks ok, the hyperlinks are not updated. It still points to the URL of the original range. Is there any code patch to handle this? thank you.
This comment was minimized by the moderator on the site
Learn how to spell. Ridiculous. Emial. Really?
This comment was minimized by the moderator on the site
Please learn how to spell before posting on the web.
This comment was minimized by the moderator on the site
So in short, there is no built-in way to swap columns. Fail :)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations