Το Excel αφαιρεί χαρακτήρες, λέξεις, αριθμούς από συμβολοσειρές κειμένου

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

---

Αφαιρέστε χαρακτήρες από τα αριστερά, τα δεξιά ή τα μέσα των συμβολοσειρών κειμένου

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

1.1 Αφαιρέστε τους πρώτους n χαρακτήρες από τις συμβολοσειρές κειμένου

Εάν πρέπει να αφαιρέσετε τους πρώτους n χαρακτήρες από μια λίστα συμβολοσειρών κειμένου, οι ακόλουθες μέθοδοι μπορεί να σας κάνουν τη χάρη.

 Χρησιμοποιώντας τύπους

Κανονικά, για να διαγράψετε τους χαρακτήρες από την αρχή των συμβολοσειρών κειμένου, μπορείτε να χρησιμοποιήσετε είτε τη συνάρτηση REPLACE είτε έναν συνδυασμό συναρτήσεων RIGHT και LEN.

Λειτουργία REPLACE για να αφαιρέσετε τους πρώτους N χαρακτήρες:

• κορδόνι: Η συμβολοσειρά κειμένου από την οποία θέλετε να αφαιρέσετε χαρακτήρες.
• αριθμός_χαρών: Ο αριθμός των χαρακτήρων που θέλετε να αφαιρέσετε.

Για παράδειγμα, για να αφαιρέσετε τους 2 πρώτους χαρακτήρες από τα κελιά, χρησιμοποιήστε τον παρακάτω τύπο και, στη συνέχεια, σύρετε τη λαβή πλήρωσης για να αντιγράψετε τον τύπο σε άλλα κελιά, δείτε στιγμιότυπο οθόνης:

Λειτουργίες RIGHT και LEN για την αφαίρεση των πρώτων N χαρακτήρων:

• κορδόνι: Η συμβολοσειρά κειμένου από την οποία θέλετε να αφαιρέσετε χαρακτήρες.
• αριθμός_χαρών: Ο αριθμός των χαρακτήρων που θέλετε να αφαιρέσετε.

Για να αφαιρέσετε τους 2 πρώτους χαρακτήρες από τα κελιά, εφαρμόστε τον ακόλουθο τύπο:

---

 Χρησιμοποιώντας τη λειτουργία καθορισμένη από το χρήστη

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

1. Κρατήστε πατημένο το Alt + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

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

Κωδικός VBA: Αφαιρέστε τους πρώτους n χαρακτήρες από τις συμβολοσειρές κειμένου

Function removeFirstx(rng As String, cnt As Long)
'Updateby Extendoffice
removeFirstx = Right(rng, Len(rng) - cnt)
End Function

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

Note: Σε αυτόν τον τύπο: A4 είναι το κελί από το οποίο θέλετε να αφαιρέσετε χαρακτήρες. Ο αριθμός 2 υποδεικνύει τον αριθμό των χαρακτήρων που θέλετε να καταργήσετε από την αρχή της συμβολοσειράς κειμένου.

---

1.2 Αφαιρέστε τους τελευταίους n χαρακτήρες από τις συμβολοσειρές κειμένου

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

 Με τη χρήση φόρμουλας

Για να αφαιρέσετε τους τελευταίους n χαρακτήρες από τις συμβολοσειρές κειμένου, μπορείτε να χρησιμοποιήσετε έναν τύπο που βασίζεται στις συναρτήσεις LEFT και LEN.

Λειτουργίες LEFT και LEN για την αφαίρεση των τελευταίων N χαρακτήρων:

• κορδόνι: Η συμβολοσειρά κειμένου από την οποία θέλετε να αφαιρέσετε χαρακτήρες.
• αριθμός_χαρών: Ο αριθμός των χαρακτήρων που θέλετε να αφαιρέσετε.

Για να διαγράψετε 3 χαρακτήρες από το τέλος των συμβολοσειρών κειμένου, χρησιμοποιήστε αυτόν τον τύπο και, στη συνέχεια, σύρετε τη λαβή πλήρωσης για να αντιγράψετε τον τύπο σε άλλα κελιά, δείτε στιγμιότυπο οθόνης:

---

 Χρησιμοποιώντας τη λειτουργία καθορισμένη από το χρήστη

Εδώ, μια συνάρτηση καθορισμένη από το χρήστη μπορεί επίσης να σας βοηθήσει να αφαιρέσετε τους τελευταίους n χαρακτήρες από μια λίστα κελιών, κάντε ως εξής:

1. Κρατήστε πατημένο το Alt + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

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

Κωδικός VBA: Αφαιρέστε τους τελευταίους n χαρακτήρες από τις συμβολοσειρές κειμένου

Function removeLastx(rng As String, cnt As Long)
'Updateby Extendoffice
removeLastx = Left(rng, Len(rng) - cnt)
End Function

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

Note: Σε αυτόν τον τύπο: A4 είναι το κελί από το οποίο θέλετε να αφαιρέσετε χαρακτήρες. Ο αριθμός 3 υποδεικνύει τον αριθμό των χαρακτήρων που θέλετε να καταργήσετε από το τέλος της συμβολοσειράς κειμένου.

---

1.3 Καταργήστε τον πρώτο, τον τελευταίο n χαρακτήρες ή ορισμένους χαρακτήρες θέσης χρησιμοποιώντας μια ισχυρή δυνατότητα

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

Μετά την εγκατάσταση Kutools για Excel, κάντε το ως εξής:

1. Επιλέξτε τα κελιά που θέλετε να αφαιρέσετε χαρακτήρες και, στη συνέχεια, κάντε κλικ Kutools > Κείμενο > Κατάργηση κατά θέση, δείτε το στιγμιότυπο οθόνης:

2. Στην Κατάργηση κατά θέση πλαίσιο διαλόγου, κάντε τις ακόλουθες λειτουργίες:

2.1 Αφαιρέστε τους πρώτους n χαρακτήρες από τα κελιά:

• In Αριθμοί πλαίσιο κειμένου, πληκτρολογήστε τον αριθμό των χαρακτήρων που θέλετε να αφαιρέσετε από τις συμβολοσειρές. Σε αυτό το παράδειγμα, θα αφαιρέσω τους 2 πρώτους χαρακτήρες.
• Αγορά Από αριστερά επιλογή θέση τμήμα.
• Στη συνέχεια, κάντε κλικ στο κουμπί Ok or Εφαρμογή κουμπί για να λάβετε το αποτέλεσμα όπως φαίνεται παρακάτω στιγμιότυπο οθόνης.

2.2 Αφαιρέστε τους τελευταίους n χαρακτήρες από τα κελιά:

• In Αριθμοί πλαίσιο κειμένου, πληκτρολογήστε τον αριθμό των χαρακτήρων που θέλετε να αφαιρέσετε από τις συμβολοσειρές. Σε αυτό το παράδειγμα, θα αφαιρέσω τους τελευταίους 3 χαρακτήρες.
• Αγορά Από δεξιά επιλογή θέση τμήμα.
• Στη συνέχεια, κάντε κλικ στο κουμπί Ok or Εφαρμογή κουμπί για να λάβετε το αποτέλεσμα όπως φαίνεται παρακάτω στιγμιότυπο οθόνης.

2.3 Αφαιρέστε n χαρακτήρες από συγκεκριμένη θέση κελιών:

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

• In Αριθμοί πλαίσιο κειμένου, πληκτρολογήστε τον αριθμό των χαρακτήρων που θέλετε να αφαιρέσετε από τις συμβολοσειρές. Σε αυτό το παράδειγμα, θα αφαιρέσω 3 χαρακτήρες από μια συγκεκριμένη θέση.
• Αγορά Καθορίστε και πληκτρολογήστε τον αριθμό από τον οποίο ξεκινούν οι χαρακτήρες που θέλετε να αφαιρέσετε στο πλαίσιο κειμένου του θέση Ενότητα. Εδώ, θα αφαιρέσω χαρακτήρες από τον τρίτο χαρακτήρα.
• Στη συνέχεια, κάντε κλικ στο κουμπί Ok or Εφαρμογή κουμπί για να λάβετε το αποτέλεσμα όπως φαίνεται παρακάτω στιγμιότυπο οθόνης.

Κατεβάστε και δωρεάν δοκιμή Kutools για Excel τώρα!

---

1.4 Καταργήστε τους πρώτους n και τελευταίους n χαρακτήρες από συμβολοσειρές κειμένου με τύπο

Όταν πρέπει να καταργήσετε ορισμένους χαρακτήρες και στις δύο πλευρές των συμβολοσειρών κειμένου στο Excel, μπορείτε να συνδυάσετε τις συναρτήσεις MID και LEN για να δημιουργήσετε έναν τύπο για την αντιμετώπιση αυτής της εργασίας.

• κορδόνι: Η συμβολοσειρά κειμένου από την οποία θέλετε να αφαιρέσετε χαρακτήρες.
• αριστερά_χαρακτήρες: Ο αριθμός των χαρακτήρων που πρέπει να αφαιρεθούν από τα αριστερά.
• δεξιά_χαρακτήρες: Ο αριθμός των χαρακτήρων προς κατάργηση από τα δεξιά.

Για παράδειγμα, πρέπει να αφαιρέσετε τους πρώτους 7 χαρακτήρες και τους τελευταίους 5 χαρακτήρες από τις συμβολοσειρές κειμένου ταυτόχρονα. Εισαγάγετε τον ακόλουθο τύπο σε ένα κενό κελί:

Note: Σε αυτόν τον τύπο: A4 είναι το κελί από το οποίο θέλετε να αφαιρέσετε χαρακτήρες. Ο αριθμός 7 είναι ο αριθμός των χαρακτήρων που θέλετε να αφαιρέσετε από την αριστερή πλευρά. Ο αριθμός 5 είναι ο αριθμός των χαρακτήρων που θέλετε να αφαιρέσετε από τη δεξιά πλευρά.

Στη συνέχεια, σύρετε τη λαβή πλήρωσης προς τα κάτω στο σημείο όπου θέλετε να εφαρμόσετε αυτόν τον τύπο και θα λάβετε το αποτέλεσμα όπως φαίνεται παρακάτω στιγμιότυπο οθόνης:

---

Αφαιρέστε ανεπιθύμητους / ειδικούς χαρακτήρες από συμβολοσειρές κειμένου

Κατά την εισαγωγή δεδομένων από κάπου αλλού στο Excel, πολλοί ειδικοί ή ανεπιθύμητοι χαρακτήρες ενδέχεται να επικολληθούν στο φύλλο εργασίας σας. Για να αφαιρέσετε αυτούς τους ανεπιθύμητους χαρακτήρες όπως #@$%^&, κενά, αριθμούς, μη αριθμητικούς αριθμούς, αλλαγές γραμμής κ.λπ., αυτή η ενότητα θα παρέχει μερικές χρήσιμες μεθόδους που θα σας βοηθήσουν.

2.1 Αφαιρέστε ορισμένους ειδικούς χαρακτήρες από συμβολοσειρές κειμένου

Εάν υπάρχουν ορισμένοι ειδικοί χαρακτήρες όπως %^&*() στις συμβολοσειρές κειμένου, για να αφαιρέσετε αυτόν τον τύπο χαρακτήρων, μπορείτε να εφαρμόσετε τα παρακάτω τρία κόλπα.

 Αφαιρέστε αρκετούς ειδικούς χαρακτήρες από συμβολοσειρές κειμένου με τη λειτουργία SUBSTITUTE

Κανονικά, στο Excel, μπορείτε να τοποθετήσετε πολλές συναρτήσεις SUBSTITUTE για να αντικαταστήσετε κάθε συγκεκριμένο χαρακτήρα με τίποτα, η γενική σύνταξη είναι:

• string_cell: Το κελί περιέχει τη συμβολοσειρά κειμένου από την οποία θέλετε να αφαιρέσετε ειδικούς χαρακτήρες.
• char1, char2, char3: Οι ανεπιθύμητοι χαρακτήρες που θέλετε να αφαιρέσετε.

Τώρα, αντιγράψτε ή εισαγάγετε τον παρακάτω τύπο σε ένα κενό κελί:

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

Συμβουλές: Εάν υπάρχουν περισσότεροι χαρακτήρες που θέλετε να καταργήσετε, απλά πρέπει να ενσωματώσετε περισσότερες συναρτήσεις SUBSTITUTE μέσα στον τύπο.

---

 Καταργήστε πολλούς ειδικούς χαρακτήρες από συμβολοσειρές κειμένου με τη συνάρτηση καθορισμένη από το χρήστη

Οι παραπάνω ένθετες συναρτήσεις SUBSTITUTE λειτουργούν καλά εάν υπάρχουν λίγοι ειδικοί χαρακτήρες που πρέπει να αφαιρεθούν, αλλά εάν έχετε δεκάδες χαρακτήρες προς κατάργηση, ο τύπος θα γίνει πολύ μεγάλος και δύσκολος στη διαχείριση. Σε αυτήν την περίπτωση, η ακόλουθη Λειτουργία που καθορίζεται από το χρήστη μπορεί να σας βοηθήσει να ολοκληρώσετε αυτήν την εργασία γρήγορα και εύκολα.

1. Κρατήστε πατημένο το Alt + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

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

Κωδικός VBA: Αφαιρέστε πολλούς ειδικούς χαρακτήρες από συμβολοσειρές κειμένου

Function RemoveUnwantedChars(Str As String, xchars As String)
'Updateby Extendoffice
    For Index = 1 To Len(xchars)
        Str = Replace(Str, Mid(xchars, Index, 1), "")
    Next
    RemoveUnwantedChars = Str
End Function

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

Note: Στον παραπάνω τύπο: A2 είναι το κελί από το οποίο θέλετε να αφαιρέσετε χαρακτήρες. $ D $ 2 περιέχει τους ειδικούς χαρακτήρες που θέλετε να αφαιρέσετε (μπορείτε να πληκτρολογήσετε όποιους άλλους ειδικούς χαρακτήρες χρειάζεστε).

---

 Αφαιρέστε πολλούς ειδικούς χαρακτήρες από συμβολοσειρές κειμένου με ένα εκπληκτικό χαρακτηριστικό

Εάν έχετε εγκαταστήσει Kutools για Excel, Με τους Κατάργηση χαρακτήρων χαρακτηριστικό, μπορείτε να αφαιρέσετε όλα τα είδη χαρακτήρων, όπως αριθμητικούς χαρακτήρες, χαρακτήρες άλφα, χαρακτήρες που δεν εκτυπώνονται…από μια λίστα κελιών που χρειάζεστε.

Μετά την εγκατάσταση Kutools για Excel, κάντε το ως εξής:

1. Επιλέξτε το εύρος των κελιών από τα οποία θέλετε να αφαιρέσετε ειδικούς χαρακτήρες και, στη συνέχεια, κάντε κλικ Kutools > Κείμενο > Κατάργηση χαρακτήρων, δείτε το στιγμιότυπο οθόνης:

2. Στην Κατάργηση χαρακτήρων κουτί διαλόγου:

• Έλεγχος Εξατομικευμένο επιλογή βάσει του Κατάργηση χαρακτήρων τμήμα.
• Στη συνέχεια, εισαγάγετε τους ειδικούς χαρακτήρες στο πλαίσιο κειμένου που θέλετε να καταργήσετε.
• Στη συνέχεια, κάντε κλικ στο κουμπί Ok or Εφαρμογή κουμπί για να αφαιρέσετε ταυτόχρονα τους χαρακτήρες που καθορίσατε. Δείτε στιγμιότυπο οθόνης:

Κατεβάστε και δωρεάν δοκιμή Kutools για Excel τώρα!

---

2.2 Αφαιρέστε όλους τους αριθμούς από τις συμβολοσειρές κειμένου

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

 Αφαιρέστε αριθμούς από συμβολοσειρές κειμένου με τη λειτουργία SUBSTITUTE

Στο Excel, η ένθετη συνάρτηση SUBSTITUTE μπορεί να βοηθήσει στην αντικατάσταση όλων των αριθμών με τίποτα, επομένως, μπορείτε να χρησιμοποιήσετε τον παρακάτω τύπο για να αφαιρέσετε όλους τους αριθμούς από τα κελιά:

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

---

 Αφαιρέστε αριθμούς από συμβολοσειρές κειμένου με τη λειτουργία TEXTJOIN

Εάν έχετε Excel 2019, 2021 ή 365, η νέα συνάρτηση TEXTJOIN μπορεί επίσης να βοηθήσει στην κατάργηση αριθμών από συμβολοσειρές κειμένου.

Αντιγράψτε τον ακόλουθο τύπο σε ένα κενό κελί και, στη συνέχεια, πατήστε Ctrl + Shift + Enter μαζί για να λάβετε το πρώτο αποτέλεσμα:

Στη συνέχεια, αντιγράψτε τον τύπο σε άλλα κελιά παρακάτω όπου θέλετε να εφαρμόσετε αυτόν τον τύπο, δείτε στιγμιότυπο οθόνης:

Note: Αυτό το TEXTJOIN είναι διαθέσιμο μόνο σε Excel 2019, 2021 και Office 365.

---

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

Εκτός από τους παραπάνω δύο τύπους, μια συνάρτηση που καθορίζεται από το χρήστη μπορεί επίσης να σας κάνει τη χάρη, κάντε τα παρακάτω βήματα:

1. Κρατήστε πατημένο το Alt + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

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

Κωδικός VBA: Αφαιρέστε αριθμούς από συμβολοσειρές κειμένου

Function RemoveNumbers(Txt As String) As String
'Updateby Extendoffice
With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = "[0-9]"
RemoveNumbers = .Replace(Txt, "")
End With
End Function

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

---

 Αφαιρέστε αριθμούς από συμβολοσειρές κειμένου με μια εύχρηστη επιλογή

Εάν είστε κουρασμένοι με τις περίπλοκες φόρμουλες, τώρα, επιτρέψτε μου να σας δείξω ένα εύκολο εργαλείο – Kutools για Excel'S Κατάργηση χαρακτήρων. Με αυτό το εύχρηστο χαρακτηριστικό, μπορείτε να ολοκληρώσετε αυτήν την εργασία με λίγα μόνο κλικ.

Μετά την εγκατάσταση Kutools για Excel, κάντε το ως εξής:

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

2. Στην Κατάργηση χαρακτήρων πλαίσιο διαλόγου, κάντε τις ακόλουθες λειτουργίες:

• Έλεγχος Αριθμητικός επιλογή βάσει του Κατάργηση χαρακτήρων τμήμα.
• Στη συνέχεια, κάντε κλικ στο κουμπί Ok or Εφαρμογή κουμπί για να αφαιρέσετε τους αριθμούς αμέσως. Δείτε στιγμιότυπο οθόνης:

Κατεβάστε και δωρεάν δοκιμή Kutools για Excel τώρα!

---

2.3 Αφαιρέστε μη αριθμητικούς χαρακτήρες από συμβολοσειρές κειμένου

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

 Κατάργηση μη αριθμητικών χαρακτήρων από συμβολοσειρές κειμένου με τύπο στο Excel 2016 και παλαιότερες εκδόσεις

Εάν χρησιμοποιείτε το Excel 2016 ή παλαιότερες εκδόσεις, θα πρέπει να εφαρμόσετε έναν σύνθετο τύπο για να επιτύχετε αυτήν την εργασία. Αντιγράψτε ή εισαγάγετε τον παρακάτω τύπο σε ένα κενό κελί:

Στη συνέχεια, αντιγράψτε τον τύπο σε άλλα κελιά παρακάτω όπου θέλετε να εφαρμόσετε αυτόν τον τύπο, δείτε στιγμιότυπο οθόνης:

Note: Εάν οι αριθμοί σε μια συμβολοσειρά κειμένου ξεκινούν με 0, το 0 θα χαθεί.

---

 Κατάργηση μη αριθμητικών χαρακτήρων από συμβολοσειρές κειμένου με τη συνάρτηση TEXTJOIN στο Excel 2019, 2021, 365

Ο παραπάνω τύπος μπορεί να είναι πολύ δύσκολο να κατανοηθεί για τους περισσότερους από εμάς. Εάν έχετε Excel 2019, 2021 ή 365, υπάρχει μια προσεγμένη φόρμουλα που μπορεί να σας βοηθήσει.

Αντιγράψτε ή εισαγάγετε τον ακόλουθο τύπο σε ένα κενό κελί και πατήστε Ctrl + Shift + Εισαγωγή πλήκτρα μαζί για να έχετε το πρώτο σωστό αποτέλεσμα:

Στη συνέχεια, σύρετε τη λαβή πλήρωσης προς τα κάτω στα κελιά όπου θα εφαρμόσετε αυτόν τον τύπο και θα λάβετε το αποτέλεσμα όπως φαίνεται παρακάτω στιγμιότυπο οθόνης:

Note: Με αυτόν τον τύπο, μπορείτε να δείτε ότι τα πρώτα 0 θα διατηρηθούν αφού οι αριθμοί επιστρέφονται ως κείμενο.

---

 Αφαιρέστε μη αριθμητικούς χαρακτήρες από συμβολοσειρές κειμένου με τη συνάρτηση καθορισμένη από το χρήστη

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

1. Κρατήστε πατημένο το Alt + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

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

Κωδικός VBA: Αφαιρέστε μη αριθμητικούς χαρακτήρες από συμβολοσειρές κειμένου

Function Removenonnumeric(str As String) As String
'Updateby Extendoffice
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "[^0-9]"
        Removenonnumeric = .Replace(str, "")
    End With
End Function

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

---

 Αφαιρέστε μη αριθμητικούς χαρακτήρες από συμβολοσειρές κειμένου με μια απλή δυνατότητα

Για απευθείας διαγραφή μη αριθμητικών χαρακτήρων σε μια περιοχή κελιών, Kutools για Excel'S Κατάργηση χαρακτήρων Το βοηθητικό πρόγραμμα μπορεί να το κάνει με λίγα μόνο κλικ.

Μετά την εγκατάσταση Kutools για Excel, κάντε το ως εξής:

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

2. Στην Κατάργηση χαρακτήρων πλαίσιο διαλόγου, ορίστε τις ακόλουθες λειτουργίες:

• Έλεγχος Μη αριθμητικό επιλογή βάσει του Κατάργηση χαρακτήρων τμήμα.
• Στη συνέχεια, κάντε κλικ στο κουμπί Ok or Εφαρμογή κουμπί για να αφαιρέσετε αμέσως όλους τους μη αριθμητικούς χαρακτήρες. Δείτε στιγμιότυπο οθόνης:

Κατεβάστε και δωρεάν δοκιμή Kutools για Excel τώρα!

---

2.4 Διαχωρίστε κείμενο και αριθμούς από ένα κελί σε δύο στήλες

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

 Διαχωρίστε κείμενο και αριθμούς από ένα κελί σε δύο στήλες με τη συνάρτηση καθορισμένη από το χρήστη

Χρησιμοποιώντας την ακόλουθη συνάρτηση που καθορίζεται από το χρήστη, μπορείτε να εξαγάγετε το κείμενο και τους αριθμούς ταυτόχρονα, ακολουθήστε τα παρακάτω βήματα:

1. Κρατήστε πατημένο το Alt + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

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

Κώδικας VBA: Διαχωρίστε το κείμενο και τους αριθμούς από τις συμβολοσειρές κειμένου σε δύο στήλες

Function SplitText(pWorkRng As Range, pIsNumber As Boolean) As String
'Updateby Extendoffice
Dim xLen As Long
Dim xStr As String
xLen = VBA.Len(pWorkRng.Value)
For i = 1 To xLen
    xStr = VBA.Mid(pWorkRng.Value, i, 1)
    If ((VBA.IsNumeric(xStr) And pIsNumber) Or (Not (VBA.IsNumeric(xStr)) And Not (pIsNumber))) Then
        SplitText = SplitText + xStr
    End If
Next
End Function

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

4. Και μετά, συνεχίστε να πληκτρολογείτε αυτόν τον τύπο: = SplitText (A2, TRUE) σε ένα άλλο κελί και σύρετε τη λαβή πλήρωσης προς τα κάτω στα κελιά που θέλετε να συμπληρώσετε αυτόν τον τύπο για να λάβετε τους αριθμούς, δείτε το στιγμιότυπο οθόνης:

---

 Διαχωρίστε κείμενο και αριθμούς από ένα κελί σε δύο στήλες με μια εύκολη δυνατότητα

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

Μετά την εγκατάσταση Kutools για Excel, κάντε το ως εξής:

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

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

3. Στη συνέχεια, κάντε κλικ στο κουμπί Ok κουμπί και ένα άλλο Διαίρεση κελιών Θα εμφανιστεί το παράθυρο διαλόγου, επιλέξτε ένα κελί για την έξοδο του διαχωρισμένου κειμένου και αριθμών και, στη συνέχεια, κάντε κλικ στο OK κουμπί. Τώρα, μπορείτε να δείτε ότι το κείμενο και οι αριθμοί στα επιλεγμένα κελιά χωρίζονται σε δύο στήλες ταυτόχρονα, όπως φαίνεται στην παρακάτω επίδειξη:

Κατεβάστε και δωρεάν δοκιμή Kutools για Excel τώρα!

---

2.5 Αφαιρέστε χαρακτήρες αλλαγής γραμμής από συμβολοσειρές κειμένου

Μια αλλαγή γραμμής είναι κάτι που σας επιτρέπει να έχετε πολλές γραμμές στο ίδιο κελί στο Excel. Μερικές φορές, όταν αντιγράφετε δεδομένα από τον ιστότοπο ή διαχωρίζετε τα περιεχόμενα του κελιού σας με Alt + Enter κλειδιά χειροκίνητα, θα λάβετε τις διακοπές γραμμής ή τις επιστροφές μεταφοράς. Σε ορισμένες περιπτώσεις, μπορεί να θέλετε να διαγράψετε τις αλλαγές γραμμής για να κάνετε το περιεχόμενο κελιού μία γραμμή όπως φαίνεται παρακάτω στιγμιότυπο οθόνης. Εδώ, θα εισαγάγω μερικούς τρόπους για την επίλυση αυτής της εργασίας στο Excel.

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

Στο Excel, μπορείτε να χρησιμοποιήσετε το Εύρεση και αντικατάσταση λειτουργία για την κατάργηση αλλαγών γραμμής, κάντε ως εξής:

1. Επιλέξτε το εύρος δεδομένων από το οποίο θέλετε να αφαιρέσετε τις αλλαγές γραμμής.

2. Στη συνέχεια, κάντε κλικ στο κουμπί Αρχική > Εύρεση & Επιλογή > Αντικαταστήστε (ή πατήστε Ctrl + H κλειδιά) για να πάει το Εύρεση και αντικατάσταση πλαίσιο διαλόγου, δείτε το στιγμιότυπο οθόνης:

3. Στο αναδυόμενο Εύρεση και αντικατάσταση πλαίσιο διαλόγου, κάντε τις ακόλουθες λειτουργίες:

• Τοποθετήστε τον κέρσορα στο βρείτε αυτό πεδίο και πατήστε Ctrl + J στο πληκτρολόγιο, μπορεί να μην βλέπετε τίποτα, αλλά έχει εισαχθεί ο χαρακτήρας αλλαγής γραμμής.
• Στο Αντικατάσταση με πεδίο, αφήστε αυτό το πεδίο κενό για να διαγράψετε απλώς τις αλλαγές γραμμής ή πατήστε το Χώρος βαr μία φορά για να αντικαταστήσετε τις αλλαγές γραμμής με κενά.

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

---

 Αφαιρέστε χαρακτήρες αλλαγής γραμμής από συμβολοσειρές κειμένου με τη λειτουργία SUBSTITUTE

Μπορείτε επίσης να δημιουργήσετε έναν τύπο που βασίζεται στις συναρτήσεις SUBSTITUTE και CHAR για να αφαιρέσετε τις αλλαγές γραμμής από τις συμβολοσειρές κειμένου.

Εφαρμόστε τον παρακάτω τύπο για να λάβετε το αποτέλεσμα:

Συμβουλές: Η συνάρτηση SUBSTITUTE βρίσκει και αντικαθιστά τον χαρακτήρα CHAR(10) που αντιπροσωπεύει τον χαρακτήρα αλλαγής γραμμής με τίποτα. Εάν θέλετε το αποτέλεσμα να διαχωρίζεται με κόμμα και διάστημα, μπορείτε να χρησιμοποιήσετε τον παρακάτω τύπο:

---

 Αφαιρέστε χαρακτήρες αλλαγής γραμμής από συμβολοσειρές κειμένου με κώδικα VBA

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

1. Κρατήστε πατημένο το Alt + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

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

Κώδικας VBA: Αφαιρέστε τις αλλαγές γραμμής από τις συμβολοσειρές κειμένου

Sub RemoveCarriage()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Rng.Value = Replace(Rng.Value, Chr(10), "")
Next
End Sub

3. Στη συνέχεια, πατήστε F5 κλειδί για να εκτελέσετε αυτόν τον κώδικα και θα εμφανιστεί ένα πλαίσιο προτροπής, επιλέξτε το εύρος που θέλετε να αφαιρέσετε τις αλλαγές γραμμής, δείτε στιγμιότυπο οθόνης:

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

---

 Καταργήστε χαρακτήρες αλλαγής γραμμής από συμβολοσειρές κειμένου με μια έξυπνη επιλογή

Εδώ, Kutools για Excel'S Κατάργηση χαρακτήρων Το χαρακτηριστικό μπορεί επίσης να σας βοηθήσει να αφαιρέσετε τις διακοπές γραμμής με ευκολία.

Μετά την εγκατάσταση Kutools για Excel, κάντε το ως εξής:

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

2. Στην Κατάργηση χαρακτήρων πλαίσιο διαλόγου, ορίστε τις ακόλουθες λειτουργίες:

• Έλεγχος Μη εκτύπωση επιλογή βάσει του Κατάργηση χαρακτήρων τμήμα.
• Στη συνέχεια, κάντε κλικ στο κουμπί Ok or Εφαρμογή κουμπί για να αφαιρέσετε όλες τις αλλαγές γραμμής από την επιλεγμένη περιοχή δεδομένων. Δείτε στιγμιότυπο οθόνης:

Κατεβάστε και δωρεάν δοκιμή Kutools για Excel τώρα!

---

2.6 Αφαιρέστε κενά (προπορευόμενα, τελικά, επιπλέον ή όλα τα κενά) από συμβολοσειρές κειμένου

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

 Αφαιρέστε επιπλέον κενά (προπορευόμενα, υστερούντα, περίσσεια) από συμβολοσειρές κειμένου με τη λειτουργία TRIM

Στο Excel, για να διαγράψετε τα κύρια, τα τελικά και τα επιπλέον κενά από τις συμβολοσειρές κειμένου, η απλή λειτουργία TRIM μπορεί να σας βοηθήσει. Αυτή η συνάρτηση διαγράφει όλα τα κενά εκτός από τα μεμονωμένα κενά μεταξύ των λέξεων.

Εισαγάγετε τον παρακάτω τύπο σε ένα κενό κελί:

Και, στη συνέχεια, σύρετε τη λαβή πλήρωσης προς τα κάτω για να αντιγράψετε τον τύπο για άλλα κελιά, τώρα, μπορείτε να δείτε όλα τα κύρια, τελικά κενά και τα επιπλέον κενά μεταξύ των λέξεων να αφαιρούνται αμέσως από το στιγμιότυπο οθόνης:

---

 Καταργήστε όλα τα κενά από τις συμβολοσειρές κειμένου

Εάν θέλετε να αφαιρέσετε όλα τα κενά από τις συμβολοσειρές κειμένου, η ακόλουθη συνάρτηση SUBSTITUTE και η λειτουργία Εύρεση & Αντικατάσταση μπορούν να σας κάνουν τη χάρη.

Χρησιμοποιώντας τη λειτουργία SUBSTITUTE

Μπορείτε να χρησιμοποιήσετε τη συνάρτηση SUBSTITUTE για να αντικαταστήσετε όλα τα κενά με τίποτα, εφαρμόστε τον παρακάτω τύπο σε ένα κενό κελί:

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

---

Χρησιμοποιώντας τη λειτουργία Εύρεση και αντικατάσταση

Στην πραγματικότητα, η Εύρεση και αντικατάσταση Η δυνατότητα στο Excel μπορεί επίσης να σας βοηθήσει να απαλλαγείτε από όλα τα κενά από επιλεγμένα κελιά, ακολουθήστε τα παρακάτω βήματα:

1. Επιλέξτε το εύρος δεδομένων από το οποίο θέλετε να αφαιρέσετε όλα τα κενά.

2. Στη συνέχεια, κάντε κλικ στο κουμπί Αρχική > Εύρεση & Επιλογή > Αντικαταστήστε (ή πατήστε Ctrl + H κλειδιά) για να μεταβείτε στο Εύρεση και αντικατάσταση παράθυρο διαλόγου, στο ανοιχτό Εύρεση και αντικατάσταση πλαίσιο διαλόγου, κάντε τις παρακάτω λειτουργίες:

• Τύπος Πλήκτρο διαστήματος στο βρείτε αυτό πεδίο;
• Στο Αντικατάσταση με πεδίο, αφήστε αυτό το πεδίο κενό.

3. Και μετά, κάντε κλικ στο Αντικατάσταση όλων κουμπί, όλα τα κενά στα επιλεγμένα κελιά θα διαγραφούν ταυτόχρονα. Δείτε στιγμιότυπο οθόνης:

---

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

Kutools για Excel έχει ένα ισχυρό χαρακτηριστικό - Κατάργηση Spaces, με αυτό το βοηθητικό πρόγραμμα, μπορείτε όχι μόνο να αφαιρέσετε τους προπορευόμενους χώρους, τα τελικά κενά, τα πλεονάζοντα κενά, αλλά και όλα τα κενά από επιλεγμένα εύρη σε ένα παράθυρο διαλόγου, το οποίο θα ενισχύσει την παραγωγικότητα της εργασίας σας.

Μετά την εγκατάσταση Kutools για Excel, κάντε το ως εξής:

1. Επιλέξτε το εύρος δεδομένων από το οποίο θα αφαιρέσετε κενά και, στη συνέχεια, κάντε κλικ Kutools > Κείμενο > Κατάργηση Spaces. Δείτε το στιγμιότυπο οθόνης:

2. Στην Κατάργηση Spaces στο παράθυρο διαλόγου, επιλέξτε έναν τύπο διαστήματος που θέλετε να αφαιρέσετε από το Τύπος χώρων:

• Αφαιρέστε τα κύρια κενά, επιλέξτε το Κορυφαίοι χώροι επιλογή;
• Αφαιρέστε τα τελικά κενά, επιλέξτε το Χώροι που ακολουθούν επιλογή;
• Αφαιρέστε τα κύρια κενά και τα τελικά κενά αμέσως, επιλέξτε το Κορυφαίοι και πίσω θέσεις επιλογή;
• Αφαιρέστε όλα τα επιπλέον κενά, επιλέξτε το Όλοι οι υπερβολικοί χώροι επιλογή;
• Αφαιρέστε όλα τα κενά, επιλέξτε το Όλοι οι χώροι επιλογή.

3. Στη συνέχεια, κάντε κλικ στο κουμπί Ok or Εφαρμογή κουμπί, θα έχετε το αποτέλεσμα που χρειάζεστε.

Κατεβάστε και δωρεάν δοκιμή Kutools για Excel τώρα!

---

Αφαιρέστε χαρακτήρες / κείμενο πριν ή μετά από συγκεκριμένο χαρακτήρα

Σε αυτήν την ενότητα, θα εισαγάγω ορισμένες λειτουργίες για την αφαίρεση του κειμένου ή των χαρακτήρων πριν ή μετά την πρώτη, τελευταία ή ντη εμφάνιση ενός συγκεκριμένου χαρακτήρα.

3.1 Αφαιρέστε κείμενο πριν ή μετά τον πρώτο συγκεκριμένο χαρακτήρα

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

 Αφαιρέστε κείμενο πριν από τον πρώτο συγκεκριμένο χαρακτήρα με έναν τύπο

Για να αφαιρέσετε κείμενο ή χαρακτήρες πριν από τον πρώτο συγκεκριμένο χαρακτήρα, μπορείτε να δημιουργήσετε έναν τύπο που βασίζεται στις συναρτήσεις RIGHT, LEN και FIND, η γενική σύνταξη είναι:

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

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

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

---

 Καταργήστε κείμενο μετά τον πρώτο συγκεκριμένο χαρακτήρα με έναν τύπο

Για να αφαιρέσετε τα πάντα μετά τον πρώτο συγκεκριμένο χαρακτήρα, μπορείτε να χρησιμοποιήσετε τις συναρτήσεις LEFT και FIND για να λάβετε το αποτέλεσμα, η γενική σύνταξη είναι:

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

Τώρα, εισαγάγετε τον παρακάτω τύπο σε ένα κενό κελί και, στη συνέχεια, σύρετε τη λαβή πλήρωσης προς τα κάτω σε άλλα κελιά όπου θέλετε να εφαρμόσετε αυτόν τον τύπο και όλοι οι χαρακτήρες μετά το πρώτο κόμμα θα αφαιρεθούν αμέσως, δείτε στιγμιότυπο οθόνης:

---

3.2 Αφαιρέστε κείμενο πριν ή μετά την Νοή εμφάνιση ενός χαρακτήρα

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

 Αφαιρέστε το κείμενο πριν από την Nη εμφάνιση χαρακτήρα με τύπο

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

• κύτταρο: Η αναφορά κελιού ή η συμβολοσειρά κειμένου από την οποία θέλετε να καταργήσετε το κείμενο.
• δεξαμενή: Το συγκεκριμένο διαχωριστικό στο οποίο θέλετε να αφαιρέσετε κείμενο με βάση.
• N: Η εμφάνιση του χαρακτήρα πριν από την οποία θα αφαιρεθεί το κείμενο.

Για παράδειγμα, για να αφαιρέσετε τα πάντα πριν από το δεύτερο κόμμα από τις συμβολοσειρές κειμένου, θα πρέπει να εφαρμόσετε τον παρακάτω τύπο:

Note: Στον παραπάνω τύπο: A2 είναι το κελί από το οποίο θέλετε να αφαιρέσετε κείμενο. , είναι ο συγκεκριμένος χαρακτήρας στον οποίο θέλετε να αφαιρέσετε κείμενο, μπορείτε να τον αλλάξετε σε οποιουσδήποτε άλλους χαρακτήρες θέλετε. 2 υποδεικνύει το nο κόμμα πριν από το οποίο θέλετε να αφαιρέσετε κείμενο.

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

---

 Αφαιρέστε κείμενο μετά την Νη εμφάνιση χαρακτήρα με τύπο

Για να αφαιρέσετε το κείμενο μετά την Νοη εμφάνιση ενός συγκεκριμένου διαχωριστικού, οι συναρτήσεις LEFT, SUBSTITUTE και FIND μπορούν να σας κάνουν τη χάρη. Η γενική σύνταξη είναι:

• κύτταρο: Η αναφορά κελιού ή η συμβολοσειρά κειμένου από την οποία θέλετε να καταργήσετε το κείμενο.
• δεξαμενή: Το συγκεκριμένο διαχωριστικό στο οποίο θέλετε να αφαιρέσετε κείμενο με βάση.
• N: Η εμφάνιση του χαρακτήρα μετά την οποία θα αφαιρεθεί το κείμενο.

Μόλις κατανοήσετε τη βασική σύνταξη, αντιγράψτε ή εισαγάγετε τον παρακάτω τύπο σε ένα κενό κελί:

Note: Στον παραπάνω τύπο: A2 είναι το κελί από το οποίο θέλετε να αφαιρέσετε κείμενο. , είναι ο συγκεκριμένος χαρακτήρας στον οποίο θέλετε να αφαιρέσετε κείμενο, μπορείτε να τον αλλάξετε σε οποιουσδήποτε άλλους χαρακτήρες θέλετε. 2 υποδεικνύει το nο κόμμα μετά το οποίο θέλετε να αφαιρέσετε κείμενο.

Στη συνέχεια, σύρετε τη λαβή πλήρωσης για να αντιγράψετε τον τύπο σε άλλα κελιά και όλοι οι χαρακτήρες μετά το δεύτερο κόμμα θα διαγραφούν αμέσως, δείτε στιγμιότυπο οθόνης:

---

 Αφαιρέστε κείμενο πριν ή μετά την Νοή εμφάνιση ενός χαρακτήρα με τη λειτουργία Καθορισμένη από το Χρήστη

Όπως μπορείτε να δείτε, μπορείτε να λύσετε τις περιπτώσεις κατάργησης κειμένου πριν ή μετά την Nη εμφάνιση ενός χαρακτήρα χρησιμοποιώντας τις εγγενείς συναρτήσεις του Excel σε διαφορετικούς συνδυασμούς. Το πρόβλημα είναι ότι πρέπει να θυμάστε αυτούς τους δύσκολους τύπους. Σε αυτήν την περίπτωση, θα δημιουργήσω μια συνάρτηση καθορισμένη από το χρήστη για να καλύψει όλα τα σενάρια, κάντε ως εξής:

1. Κρατήστε πατημένο το Alt + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

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

Κώδικας VBA: Αφαιρέστε κείμενο πριν ή μετά την Νοή εμφάνιση ενός χαρακτήρα

Function RemoveTextOccurrence(Str As String, Delimiter As String, Occurrence As Integer, IsAfter As Boolean)
Dim xStr As String
Dim xStrLen, xF, xIntStart As Integer
xStr = Str
xStrLen = Len(xStr)
xIntStart = 1
For xF = 1 To Occurrence
xIntStart = InStr(xIntStart + 1, xStr, Delimiter, vbTextCompare)
If (xIntStart = 0) Or (xIntStart < 0) Then
    If IsAfter Then
    RemoveTextOccurrence = xStr
    Else
    RemoveTextOccurrence = ""
    End If
    Exit Function
End If
Next
If IsAfter Then
    RemoveTextOccurrence = Mid(Str, 1, xIntStart - 1)
Else
    RemoveTextOccurrence = Mid(Str, xIntStart + 1)
End If
End Function

3. Στη συνέχεια, κλείστε και βγείτε από το παράθυρο κώδικα, επιστρέψτε στο φύλλο εργασίας, χρησιμοποιήστε τους ακόλουθους τύπους:

Κατάργηση κειμένου πριν από τη δεύτερη εμφάνιση κόμματος:

Αφαιρέστε το κείμενο μετά τη δεύτερη εμφάνιση κόμματος

---

3.3 Αφαιρέστε κείμενο πριν ή μετά την τελευταία εμφάνιση ενός χαρακτήρα

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

 Καταργήστε κείμενο πριν από την τελευταία εμφάνιση χαρακτήρα με τύπο

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

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

Τώρα, εάν πρέπει να αφαιρέσετε το κείμενο πριν από την τελευταία εμφάνιση κόμματος, αντιγράψτε ή εισαγάγετε τον παρακάτω τύπο σε ένα κενό κελί:

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

Στη συνέχεια, σύρετε τη λαβή πλήρωσης για να αντιγράψετε τον τύπο σε άλλα κελιά και όλοι οι χαρακτήρες πριν από το τελευταίο κόμμα θα διαγραφούν όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης:

---

 Αφαιρέστε κείμενο μετά την τελευταία εμφάνιση ενός χαρακτήρα με τύπους

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

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

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

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

---

3.4 Αφαίρεση κειμένου μεταξύ παρενθέσεων

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

 Αφαιρέστε κείμενο μεταξύ παρενθέσεων με τη λειτουργία Εύρεση και αντικατάσταση

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

1. Επιλέξτε τη λίστα δεδομένων που θέλετε να αφαιρέσετε τα κείμενα μεταξύ των παρενθέσεων.

2. Στη συνέχεια, κάντε κλικ στο κουμπί Αρχική > Εύρεση & Επιλογή > Αντικαταστήστε (ή πατήστε Ctrl + H πλήκτρα) για να μεταβείτε στο πλαίσιο διαλόγου Εύρεση και αντικατάσταση, στο Εύρεση και αντικατάσταση πλαίσιο διαλόγου, κάντε τις ακόλουθες λειτουργίες:

• Στο βρείτε αυτό πεδίο, πληκτρολογήστε (*) στο πλαίσιο κειμένου.
• Στο Αντικατάσταση με πεδίο, αφήστε αυτό το πεδίο κενό.

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

Συμβουλές: Ο Εύρεση και αντικατάσταση Το χαρακτηριστικό λειτουργεί επίσης για δύο ή περισσότερα ζεύγη παρενθέσεων εντός των συμβολοσειρών κειμένου.

---

 Αφαιρέστε κείμενο μεταξύ παρενθέσεων με τύπο

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

• κείμενο: Η συμβολοσειρά κειμένου ή η αναφορά κελιού από την οποία θέλετε να αφαιρέσετε χαρακτήρες.

Τώρα, αντιγράψτε ή εισαγάγετε τον ακόλουθο τύπο σε ένα κενό κελί όπου θέλετε να λάβετε το αποτέλεσμα:

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

Συμβουλές: Εάν δεν υπάρχουν παρενθέσεις στην τιμή του κελιού, θα εμφανιστεί ένα σφάλμα μετά την εφαρμογή του παραπάνω τύπου, για να αγνοήσετε το σφάλμα, χρησιμοποιήστε τον παρακάτω τύπο:

---

 Αφαιρέστε κείμενο μεταξύ παρενθέσεων με Λειτουργία Καθορισμένη από το Χρήστη

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

1. Κρατήστε πατημένο το Alt + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

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

Κώδικας VBA: Αφαιρέστε κείμενο μεταξύ παρενθέσεων

Function remtxt(ByVal str As String) As String
'Updateby Extendoffice
  While InStr(str, "(") > 0 And InStr(str, ")") > InStr(str, "(")
    str = Left(str, InStr(str, "(") - 1) & Mid(str, InStr(str, ")") + 1)
  Wend
  remtxt = Trim(str)
End Function

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

---

Αφαιρέστε λέξεις από συμβολοσειρές κειμένου

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

4.1 Αφαιρέστε την πρώτη ή την τελευταία λέξη από τη συμβολοσειρά κειμένου

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

 Αφαιρέστε την πρώτη λέξη από τη συμβολοσειρά κειμένου με τύπο

Αφαιρέστε τις πρώτες λέξεις από μια λίστα συμβολοσειρών κειμένου, μπορείτε να δημιουργήσετε έναν απλό τύπο που βασίζεται στις συναρτήσεις RIGHT, LEN και FIND, η γενική σύνταξη είναι:

• κείμενο: Η συμβολοσειρά κειμένου ή η αναφορά κελιού από την οποία θέλετε να αφαιρέσετε την πρώτη λέξη.

Τώρα, εισαγάγετε ή αντιγράψτε τον ακόλουθο τύπο σε ένα κενό κελί:

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

Συμβουλές: Εάν πρέπει να αφαιρέσετε τις πρώτες N λέξεις από τα κελιά, χρησιμοποιήστε τον παρακάτω τύπο:

• κείμενο: Η συμβολοσειρά κειμένου ή η αναφορά κελιού από την οποία θέλετε να αφαιρέσετε τις πρώτες n λέξεις.
• N: Υποδεικνύει πόσες λέξεις θέλετε να αφαιρέσετε από την αρχή της συμβολοσειράς κειμένου.

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

---

  Αφαιρέστε την τελευταία λέξη από τη συμβολοσειρά κειμένου με τύπο

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

• κείμενο: Η συμβολοσειρά κειμένου ή η αναφορά κελιού από την οποία θέλετε να αφαιρέσετε την τελευταία λέξη.

Χρησιμοποιήστε τον παρακάτω τύπο σε ένα κενό κελί και, στη συνέχεια, σύρετε τη λαβή πλήρωσης προς τα κάτω για να εφαρμόσετε τον τύπο σε άλλα κελιά, δείτε στιγμιότυπο οθόνης:

Συμβουλές: Για να αφαιρέσετε τις τελευταίες N λέξεις από μια λίστα κελιών, η γενική σύνταξη είναι:

• κείμενο: Η συμβολοσειρά κειμένου ή η αναφορά κελιού από την οποία θέλετε να αφαιρέσετε τις τελευταίες n λέξεις.
• N: Υποδεικνύει τον αριθμό των λέξεων που θέλετε να αφαιρέσετε από το τέλος της συμβολοσειράς κειμένου.

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

---

4.2 Αφαιρέστε διπλούς χαρακτήρες ή λέξεις μέσα σε ένα κελί

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

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

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

1. Κρατήστε πατημένο το Alt + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

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

Κωδικός VBA: Καταργήστε διπλούς χαρακτήρες μέσα σε ένα κελί

Function RemoveDupeschars(pWorkRng As Range) As String
'Updateby Extendoffice
Dim xValue As String
Dim xChar As String
Dim xOutValue As String
Set xDic = CreateObject("Scripting.Dictionary")
xValue = pWorkRng.Value
For i = 1 To VBA.Len(xValue)
    xChar = VBA.Mid(xValue, i, 1)
    If xDic.Exists(xChar) Then
    Else
        xDic(xChar) = ""
        xOutValue = xOutValue & xChar
    End If
Next
RemoveDupeschars = xOutValue
End Function

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

Note: A2 είναι το κελί δεδομένων από το οποίο θέλετε να αφαιρέσετε τους διπλότυπους χαρακτήρες.

Άκρο: Η συνάρτηση έχει διάκριση πεζών-κεφαλαίων, επομένως αντιμετωπίζει τα πεζά και τα κεφαλαία γράμματα ως διαφορετικούς χαρακτήρες.

---

 Καταργήστε τις διπλότυπες λέξεις μέσα σε ένα κελί χρησιμοποιώντας τη συνάρτηση καθορισμένη από το χρήστη

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

1. Κρατήστε πατημένο το Alt + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

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

Κώδικας VBA: Καταργήστε τις διπλότυπες λέξεις μέσα σε ένα κελί

Function RemoveDupeswords(txt As String, Optional delim As String = " ") As String
'Updateby Extendoffice
    Dim x
    With CreateObject("Scripting.Dictionary")
        .CompareMode = vbTextCompare
        For Each x In Split(txt, delim)
            If Trim(x) <> "" And Not .exists(Trim(x)) Then .Add Trim(x), Nothing
        Next
        If .Count > 0 Then RemoveDupeswords = Join(.keys, delim)
    End With
End Function

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

Note: A2 είναι το κελί από το οποίο θέλετε να διαγράψετε τις διπλότυπες λέξεις και το κόμμα και το διάστημα (, ) είναι οι οριοθέτες για να διαχωρίσετε τις συμβολοσειρές κειμένου, μπορείτε να τις αλλάξετε σε οποιονδήποτε άλλο οριοθέτη ανάλογα με τις ανάγκες σας.

Άκρο: Αυτή η λειτουργία δεν κάνει διάκριση πεζών-κεφαλαίων, τα πεζά και τα κεφαλαία γράμματα αντιμετωπίζονται ως οι ίδιοι χαρακτήρες.

---

4.3 Περικοπή συμβολοσειράς κειμένου σε Ν λέξεις

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

 Περικοπή συμβολοσειράς κειμένου σε Ν λέξεις με τύπο

Για να περικόψετε μια συμβολοσειρά κειμένου σε N λέξεις, μπορείτε να δημιουργήσετε έναν τύπο που βασίζεται στις συναρτήσεις LEFT, FIND και SUBSTITUTE, η γενική σύνταξη είναι:

• κείμενο: Η συμβολοσειρά κειμένου ή η αναφορά κελιού που θέλετε να περικόψετε.
• N: Ο αριθμός των λέξεων που θέλετε να κρατήσετε από την αριστερή πλευρά της δεδομένης συμβολοσειράς κειμένου.

Για να αντιμετωπίσετε αυτήν την εργασία, αντιγράψτε ή εισαγάγετε τον παρακάτω τύπο σε ένα κενό κελί:

Και, στη συνέχεια, σύρετε τη λαβή πλήρωσης προς τα κάτω για να εφαρμόσετε αυτόν τον τύπο σε άλλα κελιά, δείτε στιγμιότυπο οθόνης:

---

 Περικοπή συμβολοσειράς κειμένου σε N λέξεις με Λειτουργία Καθορισμένη από το Χρήστη

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

1. Κρατήστε πατημένο το Alt + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

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

Κωδικός VBA: Περικοπή συμβολοσειράς κειμένου σε N λέξεις

Function GetNWords(StrWords As String, Num_of_Words As Integer) As String
'Updateby Extendoffice
Dim xArr
Dim xRes As String
Dim xF As Integer
xStr = StrWords
If (Num_of_Words < 1) Then
    GetNWords = ""
    Exit Function
End If
xArr = Split(xStr, " ")
xRes = ""
On Error Resume Next
For xF = 0 To UBound(xArr)
    If Trim(xArr(xF)) <> "" Then
    Num_of_Words = Num_of_Words - 1
        If xRes = "" Then
            xRes = Trim(xArr(xF))
        Else
            xRes = xRes & " " & Trim(xArr(xF))
        End If
    End If
    If Num_of_Words = 0 Then Exit For
Next
If Num_of_Words = 0 Then
    GetNWords = xRes & "..."
Else
    GetNWords = xRes & "..."
End If
End Function

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