Αν αντιμετωπίζετε προβλήματα κατά το διαχωρισμό του κειμένου σε δύο ή περισσότερες ξεχωριστές στήλες με βάση τον συγκεκριμένο χαρακτήρα, τότε θα πρέπει να διαβάσετε αυτό το άρθρο.
Σε αυτό το άρθρο, θα μάθουμε πώς να χωρίζουμε το όνομα σε 3 κελιά, χρησιμοποιώντας το VBA στο Microsoft Excel.
Ας πάρουμε ένα παράδειγμα για να καταλάβουμε πού και πώς μπορούμε να χωρίσουμε το όνομα.
Έχουμε μια λίστα με ονόματα με τη μορφή "FirstName Initial LastName" στη στήλη A. Θέλουμε να χωρίσουμε ολόκληρη τη στήλη σε τρεις στήλες, με μία να περιέχει όλα τα πρώτα ονόματα, η δεύτερη να περιέχει αρχικά και η τρίτη όλα τα επώνυμα Το
Θα γράψουμε τον κωδικό VBA για να χωρίσουμε το όνομα. Ακολουθήστε τα παρακάτω βήματα:-
Για να χωρίσουμε το όνομα σε 3 κελιά, θα χρησιμοποιήσουμε VBA. Δείτε την παρακάτω διαδικασία και τον κώδικα και θα το καταλάβετε εύκολα:-
- Ανοίξτε τη σελίδα VBA και πατήστε Alt+F11
- Εισαγάγετε μια ενότητα
- Στη συνέχεια, μεταβείτε στο μενού εισαγωγής και κάντε κλικ στη διαδικασία, όπου θα λάβετε τη διαδικασία εκκίνησης της μακροεντολής
- Γράψτε τον παρακάτω κωδικό:-
Public Sub SplitName () X = Cells (Rows.Count, 1). End (xlUp). Row For A = 1 To XB = InStr (Cells (A, 1), "") C = InStrRev (Cells (A, 1 ), "") Κελιά (Α, 2) = Αριστερά (Κελιά (Α, 1), Β) Κελιά (Α, 3) = Μέσα (Κελιά (Α, 1), Β, Γ - Β) Κελιά (Α, 4 ) = Δεξιά (Κελιά (Α, 1), Λεν (Κελιά (Α, 1)) - Γ) Επόμενο Τέλος Υπο
Επεξήγηση κώδικα:- Αρχικά δώσαμε το όνομα μακροεντολής, στη συνέχεια χρησιμοποιήσαμε το x για να ορίσουμε το εύρος δεδομένων και, στη συνέχεια, χρησιμοποιήσαμε τα Α, Β και Γ για να καθορίσουμε τον τρόπο με τον οποίο θα πρέπει να επιλεγούν οι τιμές από τα κελιά.
- Πατήστε το πλήκτρο F5 για να εκτελέσετε τη μακροεντολή στο Excel
- Όταν εκτελείτε τη μακροεντολή, τα ονόματα θα χωριστούν σε τρεις στήλες
Συμπέρασμα: Με αυτόν τον τρόπο, μπορούμε να χωρίσουμε τα ονόματα σε 3 στήλες, χρησιμοποιώντας το VBA στο Microsoft Excel.
Αν σας άρεσαν τα ιστολόγια μας, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε, να συμπληρώσουμε ή να καινοτομήσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email