Note: The other languages of the website are Google-translated. Back to English

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

Έχετε υποφέρει ποτέ με το πρόβλημα ότι πρέπει να εξαγάγετε μια συγκεκριμένη λέξη από τη συμβολοσειρά κειμένου σε ένα φύλλο εργασίας; Για παράδειγμα, έχετε το ακόλουθο εύρος συμβολοσειρών κειμένου που απαιτείται για να λάβετε την πρώτη / τελευταία ή ένατη λέξη από αυτές, εδώ μπορώ να μιλήσω για μερικούς αποτελεσματικούς τρόπους για να το λύσετε.


Εξαγάγετε την πρώτη λέξη ή το επώνυμο από τη συμβολοσειρά κειμένου με τους τύπους

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

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

= IF (ISERR (FIND ("", A2)), "", ΑΡΙΣΤΕΡΑ (A2, FIND ("", A2) -1))

Για να εξαγάγετε την τελευταία λέξη από κάθε κελί, εφαρμόστε αυτόν τον τύπο:

= IF (ISERR (FIND ("", A2)), "", RIGHT (A2, LEN (A2) -FIND ("*", SUBSTITUTE (A2, "", "*", LEN (A2) -LEN ( ΥΠΟΤΥΠΟ (A2, "", "")))))))

Και τώρα θα δείτε την πρώτη ή την τελευταία λέξη να εξάγεται από κάθε κελί.

: Στους παραπάνω τύπους, A2 υποδεικνύει το κελί από το οποίο θα εξαγάγετε την πρώτη ή την τελευταία λέξη.

Είναι δύσκολο να απομνημονεύσετε πολύπλοκους τύπους; Το καταπληκτικό εργαλείο σας βοηθά να εξαγάγετε το nth Word wμόνο με πολλά κλικ!

Πάνω από τους μεγάλους τύπους μπορούν να εξαχθούν μόνο η πρώτη και η τελευταία λέξη, αλλά θα είναι άχρηστο να εξαγάγετε την καθορισμένη nth λέξη, λέει η δεύτερη λέξη, η έκτη λέξη, κ.λπ. Ακόμα και μπορείτε να καταλάβετε τύπους για την επίλυση του προβλήματος, οι τύποι πρέπει να είναι πολύ περίπλοκο για απομνημόνευση και εφαρμογή. Εδώ, συνιστάται η Εξαγωγή της nth λέξης στο κελί του Kutools για Excel και θα σας βοηθήσει να εξαγάγετε την nth λέξη όσο το δυνατόν πιο εύκολη!


Kutools για Excel - Περιλαμβάνει περισσότερα από 300 εύχρηστα εργαλεία για το Excel. Δωρεάν δοκιμή πλήρους δυνατότητας 30-Ημέρα, δεν απαιτείται πιστωτική κάρτα! Παρ'το Τώρα

Εξαγάγετε την nth λέξη από τη συμβολοσειρά κειμένου με τη λειτουργία που καθορίζεται από το χρήστη

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

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Παράθυρο Microsoft Visual Basic for Applications.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης παράθυρο.

Function FindWord(Source As String, Position As Integer)
'Update 20131202
Dim arr() As String
arr = VBA.Split(Source, " ")
xCount = UBound(arr)
If xCount < 1 Or (Position - 1) > xCount Or Position < 0 Then
    FindWord = ""
Else
    FindWord = arr(Position - 1)
End If
End Function

3. Στη συνέχεια, αποθηκεύστε τον κωδικό, σε αυτό το παράδειγμα, θα λάβω την τρίτη λέξη από τη συμβολοσειρά, οπότε πληκτρολογήστε αυτόν τον τύπο = εύρεση λέξης (A2,3) σε ένα κενό κελί B2 και, στη συνέχεια, σύρετε τη λαβή αυτόματης συμπλήρωσης αυτού του κελιού στο εύρος όπως χρειάζεστε. Δείτε το στιγμιότυπο οθόνης:

Σημείωση: Στον παραπάνω τύπο, A2 είναι το κελί από το οποίο θέλετε να εξαγάγετε λέξη, τον αριθμό 3 υποδεικνύει την τρίτη λέξη στη συμβολοσειρά που θα εξαγάγετε και μπορείτε να τις αλλάξετε όπως χρειάζεστε.


Εξαγάγετε κάθε λέξη από τη συμβολοσειρά κειμένου και καταχωρίστε τις οριζόντια ή κάθετα

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

Kutools για Excel - Περιλαμβάνει περισσότερα από 300 εύχρηστα εργαλεία για το Excel. Δωρεάν δοκιμή πλήρους δυνατότητας 30-Ημέρα, δεν απαιτείται πιστωτική κάρτα! Δωρεάν δοκιμή τώρα!

1. Επιλέξτε τα κελιά συμβολοσειράς κειμένου από τα οποία θα εξαγάγετε τις λέξεις τους και κάντε κλικ στο Kutools > Συγχώνευση & διαχωρισμός > Διαίρεση κελιών.

2. Στο άνοιγμα διαλόγου Split Cells, καθορίστε τον τύπο διαίρεσης στο Τύπος , ελέγξτε το Διάστημα επιλογή του Καθορίστε ένα διαχωριστικό και κάντε κλικ στο Ok κουμπί. Δείτε το στιγμιότυπο οθόνης:

3. Τώρα καθορίστε το εύρος προορισμού στο οποίο θα εξάγετε τις εξαγόμενες λέξεις και κάντε κλικ στο OK κουμπί

Εάν έχετε ελέγξει το Διαχωρισμός σε στήλες επιλογή στον παραπάνω διάλογο Split Cells, κάθε λέξη εξάγεται από κάθε συμβολοσειρά κειμένου και καταγράφεται κάθετα.

Εάν έχετε ελέγξει το Διαχωρισμός σε σειρές επιλογή στον παραπάνω διάλογο Split Cells, κάθε λέξη εξάγεται από κάθε συμβολοσειρά κειμένου και παρατίθεται οριζόντια.


Εξαγάγετε την nth λέξη από τη συμβολοσειρά κειμένου στο Excel με ένα καταπληκτικό εργαλείο

Εάν έχετε εγκαταστήσει το Kutools για Excel, μπορείτε να χρησιμοποιήσετε το Formula Helper> Extract the nth word in cell για να εξαγάγετε γρήγορα την nth λέξη από το καθορισμένο κελί εύκολα.

Kutools για Excel - Περιλαμβάνει περισσότερα από 300 εύχρηστα εργαλεία για το Excel. Δωρεάν δοκιμή πλήρους δυνατότητας 30-Ημέρα, δεν απαιτείται πιστωτική κάρτα! Δωρεάν δοκιμή τώρα!

1. Επιλέξτε το κελί στο οποίο θα τοποθετήσετε την εξαγόμενη λέξη και κάντε κλικ Kutools > Βοηθός τύπου > Βοηθός τύπου για να ενεργοποιήσετε αυτήν τη λειτουργία.

2. Στο πλαίσιο διαλόγου Βοηθός τύπων, κάντε τα εξής:
(1) Επιλέξτε Κείμενο από το Τύπος τύπου αναπτυσσόμενη λίστα;
(2) Κάντε κλικ για επισήμανση Εξαγάγετε την nth λέξη στο κελί στο Επιλέξτε έναν τύπο πλαίσιο λίστας;
(3) Στο Κύτταρο πλαίσιο, καθορίστε το κελί από το οποίο θα εξαγάγετε τη λέξη.
(4) στο Το Nth πλαίσιο, καθορίστε τον αριθμό.

3. Κάντε κλικ στο Ok κουμπί. Εάν είναι απαραίτητο, σύρετε τη λαβή αυτόματης συμπλήρωσης του κελιού τύπου και αντιγράψτε τον τύπο σε άλλα κελιά.


Επίδειξη: εξαγάγετε κάθε λέξη από τη συμβολοσειρά κειμένου και καταγράψτε τις οριζόντια ή κάθετα


Kutools για Excel περιλαμβάνει περισσότερα από 300 εύχρηστα εργαλεία για το Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Λήψη και δωρεάν δοκιμή τώρα!

Σχετικά άρθρα:


Τα καλύτερα εργαλεία παραγωγικότητας του Office

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (38)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτός ο κώδικας vba είναι φανταστικός, ευχαριστώ πολύ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτή η λειτουργία που ορίζεται από το χρήστη είναι καταπληκτική! Ευχαριστώ πολύ που το μοιραστήκατε.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ πολύ! Δούλεψε μια χαρά! :-)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό ήταν ΠΟΛΥ χρήσιμο, αναρωτιόμουν αν γνωρίζει κάποιος μια λίστα με δυνατότητα λήψης ή μια αντιγραφή και επικολλήσιμη λίστα με χρήσιμες χειροποίητες λειτουργίες όπως το "FindWord" που θα μπορούσα να χρησιμοποιήσω.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, απλώς αναρωτιόμουν τι άλλο θα μπορούσα να εισαγάγω στον τύπο της Visual Basic που θα μπορούσε να εξαγάγει και κόμματα ή παύλες αμέσως μετά τα δεδομένα.. π.χ. Fortin-
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, αυτό είναι εξαιρετικό. Λειτούργησε πολύ καλά και μειώνει την καταπόνησή μας, εξοικονομεί πολύ χρόνο σε αυτή τη λειτουργία. Ευχαριστώ όλους όσους εργάστηκαν για αυτό και μοιράστηκαν...
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Καλό. Αυτό λειτούργησε πολύ καλά
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, Αυτό εξοικονομεί πραγματικά πολύ χρόνο. Ευχαριστώ για την κοινοποίηση Μπορεί κάποιος να προτείνει επίσης πώς μπορούμε να εξαγάγουμε τις λέξεις με το vba αντίστροφα, π.χ. η τελευταία λέξη είναι 1, η δεύτερη από δεξιά προς τα αριστερά είναι 2 κ.ο.κ. Αυτό θα εκτιμηθεί πολύ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό δεν λειτουργεί σωστά σε μια συμβολοσειρά πηγής που αποτελείται από μη λέξεις (όπως ονόματα προμηθευτών ακολουθούμενα από αριθμούς ανταλλακτικών)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
πώς μπορούμε να αλλάξουμε γραμματοσειρές για την nη λέξη σε ένα κελί
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Εκτιμώ πολύ. Με βοήθησε πολύ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, Ευχαριστώ για το κομμάτι του κώδικα. Με ενέπνευσε να επεκταθώ λίγο. Με τις επόμενες γραμμές, μπορείτε να επιλέξετε: τελευταία λέξη (0), μία αλλά τελευταία (-1), δεύτερη έως τελευταία (-2) κ.λπ. Ανεξάρτητα από τον αριθμό των λέξεων. Συνάρτηση FindWord(Πηγή ως συμβολοσειρά, θέση ως ακέραιος αριθμός) 'Ενημέρωση 20150504 Dim arr() Ως συμβολοσειρά arr = VBA.Split(Source, " ") xCount = UBound(arr) Επιλέξτε Case Position Case -xCount To 0 FindWord = arr(xCount + Θέση) Περίπτωση 1 Προς (xCount + 1) FindWord = arr(Θέση - 1) Περίπτωση Άλλο FindWord = "" Τέλος Επιλογή Τελικής Συνάρτησης
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, μια προσθήκη στον κώδικα χθες. Αυτό προσθέτει μια επιπλέον γραμμή για προσαρμογή για πλεονάζοντα κενά στη συμβολοσειρά πηγής: arr = VBA.Split(WorksheetFunction.Trim(Source), " ") με εκτίμηση, Allart
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ, Άλαν, αυτό είναι υπέροχο, ευχαριστώ! :)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ πάρα πολύ!!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια.. Ευχαριστώ για τον κωδικό σας, έχω προτάσεις λίστας, και μία από αυτές είναι μόνο 1 λέξη, και ο κωδικός σας δεν λειτουργεί αν έχει μόνο 1 λέξη..
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δεν μπορώ να λάβω τον κωδικό για την πρώτη λέξη για να λειτουργήσει εάν κάποια από τη λίστα μου έχει μόνο μία λέξη στο κελί. π.χ. πρώτη λέξη ---> πρώτη δεύτερη ---> [μηδενική] τελευταία λέξη ---> τελευταία
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δοκιμάστε αυτό (δείτε την απάντησή μου παραπάνω): Η συνάρτηση FindWord(Πηγή ως συμβολοσειρά, θέση ως ακέραιος) ' παίρνει 1η, 2η, τελευταία(0), από τη δεύτερη έως την τελευταία(-2) κ.λπ., λέξη από μια συμβολοσειρά ' Ενημέρωση 20150505 Dim arr( ) Ως String arr = VBA.Split(WorksheetFunction.Trim(Source), " ") xCount = UBound(arr) Επιλέξτε Case Position Case -xCount To 0 FindWord = arr(Position + xCount) Case 1 To xCount + 1 FindWord = arr (Θέση - 1) Περίπτωση Άλλο FindWord = "" Τέλος Επιλογή
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας geeks, έχω ένα κελί σαν αυτό: 1 ABCD; 2 DEDF; 1 DED#3d; 4 FDWDS; 1 ED Και θα ήθελα να εξαγάγω τον χαρακτήρα μετά το 1. Θέλω λοιπόν να έχουμε ένα αποτέλεσμα ως εξής: ABCD;DED#3d;ED
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έχω 64bit Excel 2013 και μου λείπει το πρόσθετο Morefunc. Με βάση τον παραπάνω κώδικα, βρήκα αυτήν την αντικατάσταση για τη συνάρτηση WMID του Morefunc. Θα ήμουν ευγνώμων αν κάποιος πιο ειδικός από εμένα μπορούσε να το τακτοποιήσει. Συνάρτηση WMid1(Πηγή ως συμβολοσειρά, προαιρετική θέση ως ακέραιος, προαιρετική καταμέτρηση λέξεων ως ακέραιος αριθμός, προαιρετικό διαχωριστικό ως συμβολοσειρά) Dim arr() Ως συμβολοσειρά Dim xCount ως ακέραιος αριθμός Dim wCount ως ακέραιος Dim wFirst ως ακέραιος dim wΤελευταία ως ακέραιος αριθμός, στη συνέχεια, θέση = = 0 Αν WordCount = 1 Τότε WordCount = 0 Εάν Separator = "" Τότε Separator = " " arr = VBA.Split(Trim(Source), Separator) xCount = UBound(arr) + 1 If Position < 1 Τότε wFirst = Εφαρμογή. Max(xCount + Position - WordCount + 1, 1) wLast = xCount + Position Alse wFirst = Position - 0 wLast = Application.Min(xCount - 1, Position + WordCount - 1) End If xCount < 2 or Abs(Position) > xCount Τότε WMid2 = "" Αλλιώς WMid1 = arr(wFirst) Για wCount = wFirst + 1 To wLast WMid1 = WMid1 & Separator & arr(wCount) Επόμενο τέλος Εάν WMid1 = Περικοπή(WMid1) End Function
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Τοποθετήστε Περισσότερα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL