Πώς να χρησιμοποιήσετε το κείμενο σε στήλη σε πολλές στήλες σε VBA

Χρησιμοποιώντας VBA καταγραφής μακροεντολών του Excel για να κάνει ένα πρόγραμμα που διαχωρίζει μια μονή στήλη σε πολλές στήλες δεν αφορά πολύ περισσότερο από ένα μόνο κλικ του ποντικιού . Διάσπαση πολλαπλές στήλες παρουσιάζει ένα πρόβλημα ? Διαχωρισμό της πρώτης στήλης θα αντικαταστήσει το κείμενο που θέλετε να χωρίσετε στις επόμενες στήλες . Για το λόγο αυτό , η λειτουργία " TextToColumn " θα εμφανίσει ένα μήνυμα σφάλματος αντί να χωρίσει τη στήλη . Με την κλιμάκωση του περιεχομένου να χωριστεί σε πολλαπλές γραμμές, μπορείτε να αποτρέψετε αυτό από την εμφάνιση. Οδηγίες
Η

1 Κάντε κλικ στο κουμπί " Visual Basic" στην καρτέλα Προγραμματιστής εισαχθούν στο περιβάλλον προγραμματισμού VBA , η οποία σας επιτρέπει να πληκτρολογείτε και τον εντοπισμό σφαλμάτων VBA προγράμματα . 2

Κάντε κλικ στο " Εισαγωγή " " ενότητα " στοιχείο καρτέλας για να δημιουργήσετε ένα νέο παράθυρο για να εισέλθουν τα προγράμματα . VBA θα δημιουργήσει το παράθυρο .
Εικόνων 3

Επικολλήστε τον ακόλουθο πρόγραμμα στο παράθυρο . Αυτό το πρόγραμμα χρησιμοποιεί την " TextToColumns " για να χωρίσει το κείμενο χωρισμένα με κενά . Ο " Τύπος δεδομένων " επιχείρημα λέει τη λειτουργία που θέλετε να χωρίσετε το κείμενο βασίζεται σε ένα συγκεκριμένο χαρακτήρα στο κείμενο , αντί να βασίζεται σε ένα σταθερό αριθμό χαρακτήρων ανά στήλη . Το " Space " το επιχείρημα της λειτουργίας έχει οριστεί σε " True ", υποδεικνύοντας ότι το Excel θα πρέπει να χωριστεί το κείμενο με βάση το "Διάστημα" χαρακτήρα .

TextToColumnsMultiple Public Sub ( )

Dim col , x

For Each col Σε Selection.Columns

Set x = col

x.Select

Selection.TextToColumns Τύπος δεδομένων : = xlDelimited , _

TextQualifier : = xlDoubleQuote , ConsecutiveDelimiter : = True , Tab : = False , _

Ερωτηματικό : = False , Comma : = False , Space : = True , Άλλα : = False , TrailingMinusNumbers : = _

True

Επόμενο

End Sub
Η

4 Κάντε κλικ στο εικονίδιο " Excel " στη γραμμή εργασιών των Windows για να επιστρέψετε στο Excel , στη συνέχεια, πληκτρολογήστε μια πρόταση με τουλάχιστον δύο διαχωρισμένες με κενά λόγια σε οποιοδήποτε κελί του φύλλου εργασίας . Πληκτρολογήστε μια άλλη τέτοια πρόταση στο κελί που είναι μία κάτω και μία προς τα δεξιά του πρώτου κυττάρου .
5

Κάντε κλικ στο πρώτο κελί για να το επιλέξετε και, στη συνέχεια , πατήστε και κρατήστε πατημένο το πλήκτρο Ctrl για να πείτε στο Excel που θέλετε για να επιλέξετε περισσότερα από ένα κελί .
Η

6 Κάντε κλικ στο κουμπί "Προγραμματιστής " καρτέλας " Visual Basic" για να εμφανιστεί μια λίστα προγραμμάτων . Κάντε διπλό κλικ στο " TextToColumnsMultiple " στοιχείο για να τρέξει αυτό το πρόγραμμα . Οι ποινές που πληκτρολογήσατε τώρα χωριστεί σε πολλαπλές στήλες , με μία στήλη ανά λέξη .
Η
εικόνων