Πώς μπορώ να επικολλήσω το κείμενο στο Excel, έτσι ώστε κάθε γράμμα να βρίσκεται στο δικό του κελί;

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

1. Χρησιμοποιώντας τη λειτουργία "Κείμενο σε στήλες":

1. Επικολλήστε το κείμενό σας: Επικολλήστε το κείμενο που θέλετε να χωρίσετε σε μεμονωμένα κύτταρα.

2. Επιλέξτε το κείμενο: Επισημάνετε ολόκληρο το κείμενο που επικολλήσατε.

3. Μεταβείτε στα δεδομένα> Κείμενο σε στήλες: Αυτό ανοίγει το "Μετατροπή κειμένου σε στήλες".

4. Επιλέξτε "οριοθετημένο": Αυτή η επιλογή σας επιτρέπει να χωρίσετε το κείμενο με βάση τους χαρακτήρες.

5. Επιλέξτε "Άλλο": Στο πλαίσιο "άλλο", πληκτρολογήστε ένα χώρο (ή οτιδήποτε οριοθετητής θέλετε να χρησιμοποιήσετε).

6. Κάντε κλικ στο Τέλος: Αυτό θα χωρίσει το κείμενό σας σε ξεχωριστές στήλες, με κάθε λέξη σε διαφορετική στήλη.

2. VBA Macro να χωρίσει το κείμενο:

Εάν πρέπει να το κάνετε αυτό τακτικά, μπορείτε να δημιουργήσετε μια μακροεντολή VBA:

1. Ανοίξτε το Visual Basic Editor: Πατήστε ALT + F11.

2. Εισαγάγετε μια νέα ενότητα: Μεταβείτε στο Insert> Module.

3. Επικολλήστε τον ακόλουθο κωδικό:

`` `vba

Sub splittextTocells ()

Dim Strtext ως συμβολοσειρά

Dim I όσο πολύ καιρό

«Πάρτε το κείμενο στη διάσπαση

strtext =selection.value

«Βρόχος σε κάθε χαρακτήρα

Για i =1 έως len (strtext)

«Τοποθετήστε τον χαρακτήρα σε ξεχωριστό κελί

Κύτταρα (i, 1) .Value =mid (Strtext, i, 1)

Στη συνέχεια εγώ

Τερματισμός

`` `

4. Αποθηκεύστε τη μακροεντολή: Κλείστε τον επεξεργαστή Visual Basic και αποθηκεύστε το βιβλίο εργασίας σας.

5. Εκτελέστε τη μακροεντολή:

- Επιλέξτε το κελί που περιέχει το κείμενο που θέλετε να χωρίσετε.

- Μεταβείτε στον προγραμματιστή> Μακροειδείς> Επιλέξτε τη μακροεντολή σας και κάντε κλικ στο "Εκτέλεση".

Επεξήγηση της μακροεντολής:

* Strtext: Αυτή η μεταβλητή κρατά το κείμενο που θέλετε να χωρίσετε.

* i: Αυτή η μεταβλητή χρησιμοποιείται ως μετρητής για να βρόχο μέσω κάθε χαρακτήρα.

* len (strtext): Αυτή η λειτουργία επιστρέφει το μήκος της συμβολοσειράς.

* Mid (Strtext, i, 1): Αυτή η λειτουργία εξάγει έναν μόνο χαρακτήρα από τη συμβολοσειρά ξεκινώντας από τη θέση `i '.

* κύτταρα (i, 1): Αυτό αναφέρεται στο κελί σε σειρά `I 'και στη στήλη 1 (α).

Σημαντικές σημειώσεις:

* Μήκος κειμένου: Η μακροεντολή VBA υποθέτει ότι το κείμενό σας είναι εντός του επιτρεπόμενου εύρους χαρακτήρων για ένα κύτταρο Excel. Εάν έχετε πολύ μεγάλο κείμενο, μπορείτε να τρέξετε σε όρια.

* Μορφοποίηση κυττάρων: Μπορεί να χρειαστεί να ρυθμίσετε το πλάτος της στήλης και την ευθυγράμμιση των κυττάρων μετά τη διάσπαση του κειμένου για να εμφανίσετε σωστά τους χαρακτήρες.