Πώς καταρρίπτετε μια λέξη με τα γράμματα του στο Excel;

Υπάρχουν διάφοροι τρόποι για να σπάσετε μια λέξη από τα γράμματα του στο Excel, ανάλογα με το πώς θέλετε να διαμορφωθεί η έξοδος:

Μέθοδος 1:Χρήση της λειτουργίας «mid» (για οριζόντια διάταξη)

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

* Στήλη Β: Στο κελί Β1, εισαγάγετε τον τύπο `=mid ($ A $ 1,1,1)`. Αυτό εξάγει το πρώτο γράμμα.

* Στήλη C: Στο κελί C1, εισάγετε τον τύπο `=mid ($ A $ 1,2,1)`. Αυτό εξάγει το δεύτερο γράμμα.

* Συνέχεια: Σύρετε τη λαβή πλήρωσης (το μικρό τετράγωνο στο κάτω δεξιά του κελιού) προς τα δεξιά για να επεκτείνετε τον τύπο για όσα γράμματα είναι στο Λόγο σας στο Α1. Ο τύπος θα προσαρμόσει αυτόματα το δεύτερο επιχείρημα (η θέση εκκίνησης) για κάθε επόμενο κύτταρο.

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

Μέθοδος 2:Χρήση `mid` και` textjoin '(για ένα μόνο κελί)

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

* Στο κύτταρο Β1, εισαγάγετε αυτόν τον τύπο (ρυθμίζοντας τον οριοθέτη όπως απαιτείται):

`=Textjoin (" ", True, Mid ($ A $ 1, ακολουθία (Len ($ A $ 1)), 1))`

* `Len ($ A $ 1)`:Παίρνει το μήκος της λέξης στο A1.

* `Ακολουθία (len ($ a $ 1))`:δημιουργεί μια ακολουθία αριθμών από 1 έως το μήκος της λέξης.

* `Mid ($ a $ 1, ακολουθία (len ($ a $ 1)), 1)`:Εξάγει κάθε γράμμα χρησιμοποιώντας την ακολουθία ως θέση εκκίνησης.

* `TextJoin (" ", True, ...)`:ενώνει τα εξαγόμενα γράμματα με χώρο ως οριοθετητής. Το `True` αγνοεί τις άδειες τιμές.

Αυτή η μέθοδος είναι πιο συμπαγής και αποτελεσματική αν θέλετε όλα τα γράμματα σε ένα κελί. Απαιτεί τις εκδόσεις του Excel 365 ή νεότερες για τις λειτουργίες `sequence` και` textjoin '.

Μέθοδος 3:Χρήση VBA (για πιο σύνθετα σενάρια)

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

`` `vba

Sub Breakdownwords ()

Dim Cell ως εύρος

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

Dim I ως ακέραιος

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

Για κάθε κύτταρο στην περιοχή ("A1:A10") 'Ρύθμιση της εμβέλειας όπως απαιτείται

Word =Cell.Value

Εάν ο Len (Word)> 0 τότε

Για i =1 έως len (λέξη)

Επιστολή =Mid (Word, I, 1)

"Επιλογές εξόδου:

'1. Στην επόμενη στήλη:Cell.Offset (0, i) .Value =επιστολή

'2. Σε ένα μόνο κύτταρο (διαχωρισμένο από κόμματα):Cell.Offset (0, 1) .Value =Cell.Offset (0, 1) .Value &Letter &","

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

Τέλος εάν

Επόμενο κελί

Τερματισμός

`` `

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

Επιλέξτε τη μέθοδο που ταιριάζει καλύτερα στις ανάγκες σας και την έκδοση του Excel. Η μέθοδος 2 (χρησιμοποιώντας το `textjoin 'και το` sequence') είναι γενικά η πιο αποτελεσματική και συνοπτική για την επεξεργασία μιας λέξης σε σύγχρονες εκδόσεις του Excel. Το VBA προσφέρει μέγιστη ευελιξία, αλλά απαιτεί λίγο περισσότερη γνώση προγραμματισμού.