Πώς να χωρίσετε το κείμενο σε ξεχωριστές στήλες με κεφαλαίο γράμμα στο Excel;
Ας υποθέσουμε ότι έχετε μια σειρά δεδομένων που θέλετε να χωρίσετε τα περιεχόμενα των κελιών σε ξεχωριστές στήλες με το κεφαλαίο γράμμα, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης, έχετε καλές ιδέες για να λύσετε αυτό το πρόβλημα στο Excel;
Διαχωρίστε το κείμενο σε ξεχωριστές στήλες με κεφαλαίο γράμμα με τύπους
Διαχωρίστε το κείμενο σε ξεχωριστές στήλες με κεφαλαίο γράμμα με κωδικό VBA
Διαχωρίστε το κείμενο σε ξεχωριστές στήλες με κεφαλαίο γράμμα με το Kutools για Excel
Διαχωρίστε το κείμενο σε ξεχωριστές στήλες με κεφαλαίο γράμμα με τύπους
Εάν υπάρχουν μόνο δύο λέξεις στα κελιά σας, οι ακόλουθοι τύποι σας βοηθούν να ολοκληρώσετε αυτήν την εργασία. Κάντε τα εξής:
1. Εισαγάγετε αυτόν τον τύπο πίνακα: =LEFT(A2,SMALL(FIND(CHAR(ROW(INDIRECT("65:90"))),A2&"ABCDEFGHIJKLMNOPQRSTUVWXYZ"),2)-1) (A2 είναι το κελί που θέλετε να χωρίσετε με κεφαλαίο γράμμα) σε ένα κενό κελί που βρίσκεται δίπλα στα δεδομένα σας και, στη συνέχεια, πατήστε Ctrl + Shift + Εισαγωγή πλήκτρα μαζί για να λάβετε την πρώτη λέξη, δείτε το στιγμιότυπο οθόνης:
2. Στη συνέχεια, επιλέξτε C2 και σύρετε τη λαβή πλήρωσης προς τα κάτω στα κελιά που θέλετε να εφαρμόσετε αυτόν τον τύπο, όλες οι πρώτες λέξεις των κελιών εύρους έχουν εξαχθεί ταυτόχρονα, δείτε το στιγμιότυπο οθόνης:
3. Εισαγάγετε έναν άλλο τύπο: = ΑΝΤΙΚΑΤΑΣΤΑΣΗ (A2,1, LEN (C2), "") (A2 είναι το κελί που θέλετε να διαχωρίσετε και C2 είναι το κελί περιέχει την πρώτη λέξη που έχετε επιστρέψει) στο κελί D2 και πατήστε εισάγετε κλειδί για να λάβετε τη δεύτερη λέξη, δείτε το στιγμιότυπο οθόνης:
4. Επιλέξτε το κελί D2, σύρετε τη λαβή πλήρωσης προς τα κάτω στα κελιά για να πάρετε τη δεύτερη λέξη και τα περιεχόμενα κελιού του εύρους έχουν χωριστεί σε δύο στήλες με το κεφαλαίο γράμμα, δείτε το στιγμιότυπο οθόνης:
Διαχωρίστε το κείμενο σε ξεχωριστές στήλες με κεφαλαίο γράμμα με κωδικό VBA
Οι παραπάνω τύποι εφαρμόζονται μόνο στην τιμή κελιού που περιέχει δύο λέξεις, εάν υπάρχουν πολλές λέξεις σε ένα κελί που πρέπει να διαχωριστούν, μπορείτε να προσθέσετε κενά πριν από τα κεφαλαία γράμματα και, στη συνέχεια, να εφαρμόσετε το Κείμενο σε στήλες για να χωρίσετε τα περιεχόμενα του κελιού σε χωρίστε τις στήλες ανά κενό.
Αρχικά, εφαρμόστε τον κωδικό VBA για να προσθέσετε κενά πριν από το κεφαλαίο γράμμα για να διαχωρίσετε τις λέξεις.
1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.
Κωδικός VBA: Εισαγάγετε κενά πριν από κάθε κεφαλαίο γράμμα σε ένα κελί
Function SplitWords(ByVal Str As String) As String
'updateby Extendoffice 20151128
Dim I As Integer
SplitWords = Left(Str, 1)
For I = 2 To Len(Trim(Str))
If (Asc(Mid(Str, I, 1)) > 64) And _
(Asc(Mid(Str, I, 1)) < 91) And _
(Mid(Str, I - 1, 1) <> " ") Then _
SplitWords = SplitWords & " "
SplitWords = SplitWords & Mid(Str, I, 1)
Next
End Function
3. Αποθηκεύστε και κλείστε αυτόν τον κωδικό, επιστρέψτε στο φύλλο εργασίας, εισαγάγετε αυτόν τον τύπο: = splitwords (A2) σε ένα κενό κελί δίπλα στα δεδομένα σας, δείτε το στιγμιότυπο οθόνης:
4. Στη συνέχεια, σύρετε τη λαβή πλήρωσης προς τα κάτω στα κελιά που θέλετε να εφαρμόσετε αυτόν τον τύπο και τα κενά έχουν εισαχθεί πριν από κάθε κεφαλαίο γράμμα για να διαχωρίσετε τα περιεχόμενα του κελιού, δείτε το στιγμιότυπο οθόνης:
5. Και τότε θα πρέπει να αντιγράψετε και να επικολλήσετε αυτά τα κελιά τύπου ως τιμές για να καταργήσετε τους τύπους σε άλλο μέρος ή στην αρχική περιοχή.
Δεύτερον, εφαρμόστε τη δυνατότητα Κείμενο σε στήλη για να χωρίσετε τα περιεχόμενα του κελιού σε ξεχωριστές στήλες από το διάστημα.
6. Επιλέξτε τις τιμές κελιών που έχετε εισαγάγει κενά και κάντε κλικ στο ημερομηνία > Κείμενο σε στήλες, στο Βήμα 1 του Μετατροπή του οδηγού "Κείμενο σε στήλες", Επιλέξτε Οριοθετημένη επιλογή, δείτε το στιγμιότυπο οθόνης:
7. Στη συνέχεια κάντε κλικ στο κουμπί Επόμενο κουμπί, στο Βήμα 2 του οδηγού, επιλέξτε Χώρος επιλογή βάσει του Διαχωριστές ενότητα, δείτε το στιγμιότυπο οθόνης:
8. Κάντε κλικ Επόμενο κουμπί, στο Βήμα 3 του οδηγού, επιλέξτε General επιλογή βάσει του Μορφή δεδομένων στήληςκαι, στη συνέχεια, επιλέξτε ένα κελί όπου θέλετε να βάλετε τις τιμές διαίρεσης κάνοντας κλικ κουμπί, δείτε το στιγμιότυπο οθόνης:
9. Επιτέλους, κάντε κλικ στο κουμπί φινίρισμα κουμπί, τα περιεχόμενα του κελιού έχουν χωριστεί σε πολλές στήλες όπως φαίνεται το ακόλουθο στιγμιότυπο οθόνης:
Διαχωρίστε το κείμενο σε ξεχωριστές στήλες με κεφαλαίο γράμμα με το Kutools για Excel
Εάν έχετε Kutools για Excel, συνδυάζοντας το Προσθήκη κειμένου και Διαίρεση κελιών χαρακτηριστικά, μπορείτε να χειριστείτε αυτήν την εργασία εύκολα και άνετα, κάντε τα εξής:
Kutools για Excel : με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. |
1. Επιλέξτε τα αρχικά δεδομένα που θέλετε να διαχωρίσετε.
2. Στη συνέχεια κάντε κλικ στο κουμπί Kutools > Κείμενο > Προσθήκη κειμένου, δείτε το στιγμιότυπο οθόνης:
3. Στην Προσθήκη κειμένου πλαίσιο διαλόγου, παρακαλώ πληκτρολογήστε τη γραμμή διαστήματος μία φορά ή οποιοδήποτε άλλο διαχωριστικό που χρειάζεστε στο Κείμενο πλαίσιο και μετά επιλέξτε Το 1ο γράμμα είναι κεφαλαίο από το Προσθήκη μόνο σε ενότητα, δείτε το στιγμιότυπο οθόνης:
4. Στη συνέχεια κάντε κλικ στο κουμπί Ok κουμπί και τα κενά έχουν προστεθεί πριν από κάθε κεφαλαίο γράμμα, δείτε το στιγμιότυπο οθόνης:
5. Και μετά μπορείτε να εφαρμόσετε το Διαίρεση κελιών χρησιμότητα του Kutools για Excel για να διαιρέσετε τις τιμές των κελιών ανά χώρο, διατηρώντας επιλεγμένο το εύρος δεδομένων και, στη συνέχεια, κάντε κλικ στο Kutools > Συγχώνευση & διαχωρισμός > Διαίρεση κελιών, δείτε το στιγμιότυπο οθόνης:
6. Στην Διαίρεση κελιών , επιλέξτε Διαχωρισμός σε στήλες σύμφωνα με το Χαρακτηριστικά ενότητα και ελέγξτε Χώρος ή άλλα οριοθετικά που προσθέσατε στο Βήμα 3, δείτε το στιγμιότυπο οθόνης:
7. Στη συνέχεια κάντε κλικ στο κουμπί Okκαι εμφανίζεται ένα πλαίσιο προτροπής για να σας υπενθυμίσει ότι επιλέγετε ένα κελί για να βάλετε τα δεδομένα διαχωρισμού, δείτε το στιγμιότυπο οθόνης
8. Επιτέλους, κάντε κλικ στο κουμπί OK κουμπί και θα λάβετε το αποτέλεσμα που χρειάζεστε, δείτε το στιγμιότυπο οθόνης:
Κατεβάστε και δωρεάν δοκιμή Kutools για Excel τώρα!
Επίδειξη: Διαχωρισμός κειμένου σε ξεχωριστές στήλες με κεφαλαίο γράμμα με το Kutools για Excel
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!