Πώς να αντιστρέψετε τη λειτουργία κειμένου σε στήλη στο Excel;
Στο Excel, το Κείμενο σε στήλες Η δυνατότητα μπορεί να σας βοηθήσει να χωρίσετε τα περιεχόμενα του κελιού σε πολλές στήλες από ένα συγκεκριμένο διαχωριστικό. Αλλά μερικές φορές, θέλετε να αντιστρέψετε το Κείμενο σε στήλες λειτουργία για να συνδυάσετε τις διαχωρισμένες τιμές κελιού σε ένα μόνο κελί όπως φαίνεται το παρακάτω στιγμιότυπο οθόνης. Και αυτό το άρθρο, θα μιλήσω για το πώς να αντιστρέψετε το Κείμενο σε στήλες χαρακτηριστικό για τη συνένωση πολλών στηλών σε μία.
Αντιστρέψτε τη λειτουργία κειμένου σε στήλες με τύπους
Κανονικά, μπορείτε να εφαρμόσετε ορισμένους τύπους για να αντιστρέψετε τη λειτουργία κειμένου σε στήλες για να συνδυάσετε τις διαχωρισμένες στήλες σε μία μόνο, κάντε τα εξής:
1. Πληκτρολογήστε έναν από τους παρακάτω τύπους στο κελί όπου θέλετε να συνδυάσετε τα κελιά στηλών, δείτε το στιγμιότυπο οθόνης:
= A2 & "" & B2 & "" & C2
= ΣΥΜΠΕΡΙΦΟΡΑ (A2, "", B2, "", C2)
2. Στη συνέχεια, σύρετε τη λαβή πλήρωσης προς τα κάτω στα κελιά που θέλετε να συνδυάσετε τα κελιά, δείτε το στιγμιότυπο οθόνης:
Note: Στον παραπάνω τύπο, A2, B2, να C2 είναι τα κελιά που θέλετε να συνδυάσετε σε ένα, και οι συνδυασμένες τιμές διαχωρίζονται από το διάστημα, μπορείτε επίσης να τα συνδυάσετε με άλλα οριοθετικά απλά πρέπει να αλλάξετε το διάστημα σε οποιοδήποτε άλλο διαχωριστικό όπως χρειάζεστε.
Αντιστρέψτε τη λειτουργία κειμένου σε στήλες με τη λειτουργία που καθορίζεται από το χρήστη
Εάν υπάρχουν πολλές στήλες που πρέπει να συνδυαστούν, θα πρέπει να εφαρμόσετε το & χαρακτήρες για να ενώσετε τα περιεχόμενα του κελιού ένα προς ένα, θα είναι πολύ ενοχλητικό. Ωστόσο, με τον ακόλουθο κώδικα, μπορείτε να συνδυάσετε γρήγορα πολλές στήλες σε μία ταυτόχρονα.
1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.
Κωδικός VBA: Αντιστρέψτε τη λειτουργία κειμένου σε στήλες:
Public Function ReverseTextToColumns(Rg As Range, Optional D As String = " ") As String
'updateby Extendoffice
Dim xArr
xArr = Application.WorksheetFunction.Transpose(Application.WorksheetFunction.Transpose(Rg.Value))
ReverseTextToColumns = Join(xArr, D)
End Function
3. Στη συνέχεια, αποθηκεύστε και κλείστε αυτόν τον κωδικό, επιστρέψτε στο φύλλο εργασίας και εισαγάγετε αυτόν τον τύπο: = reversetexttocolumns (A2: C2, ",")και σύρετε τη λαβή πλήρωσης προς τα κάτω στα κελιά που θέλετε να εφαρμόσετε αυτόν τον τύπο, όλες οι τιμές κελιών στις στήλες έχουν συνδυαστεί σε μία στήλη, δείτε το στιγμιότυπο οθόνης:
Note: Στον παραπάνω τύπο, Α2: Γ2 είναι τα κελιά στήλης που θέλετε να συνδυάσετε και το κόμμα ","Είναι το διαχωριστικό για να διαχωρίσετε τα συνδυασμένα δεδομένα, μπορείτε να τα αλλάξετε ανάλογα με τις ανάγκες σας.
Αντιστρέψτε τη λειτουργία κειμένου σε στήλες με το Kutools για Excel
Εάν έχετε Kutools για Excel, με το ισχυρό του εργαλείο-Συνδυάστε σειρές, στήλες ή κελιά χωρίς απώλεια δεδομένων, μπορείτε να συνδυάσετε πολλές σειρές, στήλες και κελιά σε μία σειρά, στήλη και κελί όπως θέλετε χωρίς τύπους. Δείτε παρακάτω την επίδειξη. Κάντε κλικ για λήψη του Kutools για Excel!
Μετά την εγκατάσταση Kutools για Excel, κάντε τα εξής:
1. Επιλέξτε τα κελιά που θέλετε να συνδυάσετε.
2. Και στη συνέχεια κάντε κλικ στο κουμπί Kutools > Συγχώνευση & διαχωρισμός> Συνδυάστε σειρές, στήλες ή κελιά χωρίς απώλεια δεδομένων, δείτε το στιγμιότυπο οθόνης:
3. Στο αναδυόμενο παράθυρο διαλόγου, κάντε τις ακόλουθες λειτουργίες:
(1.) Επιλέξτε Συνδυάστε στήλες επιλογή βάσει του Για να συνδυάσετε επιλεγμένα κελιά σύμφωνα με τις ακόλουθες επιλογές;
(2.) Καθορίστε ένα οριοθέτη για να διαχωρίσετε τα συνδυασμένα περιεχόμενα κάτω από το Καθορίστε ένα διαχωριστικό;
(3.) Στη συνέχεια, επιλέξτε μια επιλογή που θέλετε να αντιμετωπίσετε τα συνδυασμένα κελιά. Μπορείτε να διατηρήσετε ή να διαγράψετε περιεχόμενο από άλλα κελιά και μπορείτε επίσης να συγχωνεύσετε αυτά τα κελιά.
4. Στη συνέχεια κάντε κλικ στο κουμπί Ok or Εφαρμογή, οι ξεχωριστές στήλες έχουν αντιστραφεί για να συνδυαστούν σε μία στήλη, δείτε το στιγμιότυπο οθόνης:
Κατεβάστε και δωρεάν δοκιμή Kutools για Excel τώρα!
Επίδειξη: Αντιστρέψτε τη λειτουργία κειμένου σε στήλες με το Kutools για Excel
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!