Πώς να ανταλλάξετε δύο στήλες στο Excel

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

Αντιγραφή και επικόλληση :

1. Επιλέξτε την πρώτη στήλη που θέλετε να ανταλλάξετε.

2. Πατήστε Ctrl+C να το αντιγράψετε.

3. Επιλέξτε τη στήλη προορισμού στην οποία θέλετε να μετακινηθεί η πρώτη στήλη.

4. Κάντε δεξί κλικ και επιλέξτε "Εισαγωγή αντιγραμμένων κελιών" .

5. Στο "Εισαγωγή αντιγραμμένων κελιών" στο παράθυρο διαλόγου, επιλέξτε "Shift cell right" και κάντε κλικ στο "OK" .

6. Επιλέξτε την προηγουμένως επιλεγμένη στήλη (τώρα κενή) και επικολλήστε τη δεύτερη στήλη σε αυτήν χρησιμοποιώντας Ctrl+V .

Αποκοπή και επικόλληση :

1. Επιλέξτε την πρώτη στήλη που θέλετε να ανταλλάξετε.

2. Πατήστε Ctrl+X να το κόψω.

3. Επιλέξτε τη στήλη προορισμού στην οποία θέλετε να μετακινηθεί η πρώτη στήλη.

4. Κάντε δεξί κλικ και επιλέξτε "Εισαγωγή αποκοπής κελιών" .

5. Στο "Εισαγωγή κελιών αποκοπής" στο παράθυρο διαλόγου, επιλέξτε "Shift cell right" και κάντε κλικ στο "OK" .

6. Επιλέξτε την προηγουμένως επιλεγμένη στήλη (τώρα κενή) και επικολλήστε τη δεύτερη στήλη σε αυτήν χρησιμοποιώντας Ctrl+V .

Σύρετε και αποθέστε :

1. Επιλέξτε την πρώτη στήλη που θέλετε να ανταλλάξετε.

2. Κάντε κλικ στην κεφαλίδα της στήλης και αρχίστε να τη σύρετε στην επιθυμητή θέση.

3. Κατά τη μεταφορά, κρατήστε πατημένο το Ctrl κλειδί για να αναγκάσετε τη διπλανή στήλη να κινηθεί μαζί της.

Χρήση της λειτουργίας Transpose :

1. Επιλέξτε και τις δύο στήλες που θέλετε να ανταλλάξετε.

2. Μεταβείτε στα "Δεδομένα" καρτέλα στην κορδέλα.

3. Κάντε κλικ στο "Μεταφορά" στα "Εργαλεία δεδομένων" ομάδα.

4. Οι στήλες θα αναστραφούν, με την πρώτη στήλη να γίνεται δεύτερη και το αντίστροφο.

Προσαρμοσμένη μακροεντολή VBA :

Εάν χρειάζεται συχνά να εναλλάσσετε στήλες σε σύνθετα σενάρια, μπορείτε να δημιουργήσετε μια προσαρμοσμένη μακροεντολή χρησιμοποιώντας τη Visual Basic for Applications (VBA). Εδώ είναι ένα απλό παράδειγμα:

```

SubSwapColumns()

Dim rng1 ως εύρος, rng2 ως εύρος

Σετ rng1 =Selection.Columns(1)

Ορισμός rng2 =Selection.Columns(2)

rng1.Κόψτε

rng2.Εισαγωγή Shift:=xlToRight

End Sub

```

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

Θυμηθείτε να προσαρμόζετε τους αριθμούς στηλών σύμφωνα με τις ανάγκες σας και πάντα να κάνετε προεπισκόπηση των αλλαγών πριν ολοκληρώσετε την ανταλλαγή για να αποφύγετε τυχόν ανεπιθύμητες συνέπειες.