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

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

Συγγραφέας: Xiaoyang Τελευταία τροποποίηση: 2024-07-15

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

Αντικαταστήστε με μη αυτόματο τρόπο δύο παρακείμενα περιεχόμενα κελιού
Εναλλάξτε εύκολα τα περιεχόμενα δύο κελιών ή περιοχών με πολλά μόνο κλικ
Αντικαταστήστε δύο περιεχόμενα κελιών με κωδικό VBA


Αντικαταστήστε με μη αυτόματο τρόπο δύο παρακείμενα περιεχόμενα κελιού

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

doc-swap-cell1

  1. Επιλέξτε ένα από τα κελιά προς εναλλαγή: Για παράδειγμα, επιλέξτε κελί A4.
  2. Κρατήστε πατημένο το αλλαγή πληκτρολογήστε και τοποθετήστε τον κέρσορα στο δεξιό περίγραμμα του επιλεγμένου κελιού.
  3. Σύρετε προσεκτικά τον κέρσορα στο δεξί περίγραμμα του κελιού B4.
  4. Μόλις ο δρομέας εμφανίσει ένα "σύμβολο ", αφήστε το ποντίκι.

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

doc-swap-cell2


Εναλλάξτε εύκολα τα περιεχόμενα δύο κελιών ή περιοχών με πολλά μόνο κλικ

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

Πριν από την εφαρμογή Kutools για Excel, σας παρακαλούμε κατεβάστε και εγκαταστήστε το πρώτα.

Μετά την εγκατάσταση του Kutools για Excel, επιλέξτε Kutools > Σειρά > Σειρά ανταλλαγής για να ανοίξετε το Σειρά ανταλλαγής παράθυρο διαλόγου και, στη συνέχεια, ρυθμίστε τις παραμέτρους ως εξής.

  1. Στο Εύρος ανταλλαγής 1 ενότητα, επιλέξτε το πρώτο κελί ή εύρος που θέλετε να ανταλλάξετε.
  2. Στο Εύρος ανταλλαγής 2 ενότητα, επιλέξτε το δεύτερο κελί ή εύρος με το οποίο θέλετε να κάνετε εναλλαγή.
    Συμβουλές: Για ευκολία, μπορείτε να προεπιλέξετε τις δύο περιοχές πριν ανοίξετε το παράθυρο διαλόγου Εναλλαγή εύρους. Τα προεπιλεγμένα εύρη θα εμφανιστούν αυτόματα στο "Εύρος ανταλλαγής 1"Και"Εύρος ανταλλαγής 2" κουτιά αντίστοιχα.
  3. Κάντε κλικ στο OK κουμπί.
Αποτέλεσμα

Στη συνέχεια, δύο επιλεγμένα κελιά ή περιοχές ανταλλάσσονται αμέσως. Δείτε στιγμιότυπα οθόνης:

εύρος ανταλλαγής εγγράφων1

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


Ανταλλάξτε δύο μη γειτονικά περιεχόμενα κελιού με κωδικό VBA

Όταν τα δύο κελιά δεν γειτνιάζουν, η παραπάνω μέθοδος δεν θα λειτουργήσει. Μπορούμε να τα ανταλλάξουμε με τον κωδικό VBA.

1. πάτα το Ctrl και επιλέξτε τα δύο μη γειτονικά κελιά που θέλετε να ανταλλάξετε.

2. Κλίκ Εργολάβος>Visual Basic, Ένα νέο Microsoft Visual Basic για εφαρμογές θα εμφανιστεί το παράθυρο, κάντε κλικ Κύριο θέμα>Μονάδα μέτρησηςκαι εισαγάγετε τον ακόλουθο κώδικα στο Μονάδα μέτρησης:

Sub SwapTwoRange()
'Updateby20131120
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-multiply-υπολογισμός-3 για να εκτελέσετε τον κώδικα και μετά εμφανίζεται ένα παράθυρο διαλόγου για να επιλέξετε τα δύο κελιά με τα οποία θέλετε να ανταλλάξετε. Δείτε στιγμιότυπα οθόνης:

εύρος ανταλλαγής εγγράφων1

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

εύρος ανταλλαγής εγγράφων1

: Αυτός ο κωδικός VBA δεν μπορεί να ανταλλάξει τη μορφοποίηση των δύο κελιών.


Επίδειξη: Ανταλλάξτε δύο τυχαία περιεχόμενα κελιού με το Kutools για 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 (12)
Rated 2.5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
The vba is pants because it loses formulas and formatting. It's incredible that Excel has been through like about 25 different versions and STILL doesn't have the facility in it natively to swap two ranges/non-adjacent cells around. Sort it out Microsoft!
Rated 2.5 out of 5
This comment was minimized by the moderator on the site
Legyenszíves Megírni melyik az a müszak gomb.
Köszönöm Üdv Ádám
This comment was minimized by the moderator on the site
this isn't working for me. I don't know why
This comment was minimized by the moderator on the site
Koje njesra... na kraju cu ipak raditi copy paste... Umesto da su ubacili swap opciju na padajucem menju....
This comment was minimized by the moderator on the site
Cool trick that saved me a lot of time. Thank you!
This comment was minimized by the moderator on the site
First option work well for me thanks for your efforts... :-)
This comment was minimized by the moderator on the site
Thanks !! works perfectly for me..
This comment was minimized by the moderator on the site
Thanks !! works perfectly for me..
This comment was minimized by the moderator on the site
Thank you for the information!!!
This comment was minimized by the moderator on the site
You could just cut (non-adjacent) Cell A into an unoccupied cell, paste required cell B into that space then put A into the cell B formerly occupied couldn't you?
This comment was minimized by the moderator on the site
It's not as simple as you suggested when cells have formula in them. And this also helps in inserting multiple cells at any desired location as well.
This comment was minimized by the moderator on the site
Yes you could, but why go such a roundabout way when you can do it much faster this way. Thanks ExtendOffice for your good work.
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations