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

Κατεβάστε το βιβλίο ασκήσεων

Κατεβάστε αυτό το τετράδιο ασκήσεων για να εξασκηθείτε ενώ διαβάζετε αυτό το άρθρο.

6 κατάλληλοι τρόποι αντικατάστασης πολλαπλών χαρακτήρων

1. Χρησιμοποιήστε τη λειτουργία SUBSTITUTE για την αντικατάσταση πολλαπλών χαρακτήρων

Στο Excel, το Λειτουργία SUBSTITUTE αντικαθιστά μία ή περισσότερες περιπτώσεις ενός καθορισμένου χαρακτήρα ή συμβολοσειράς κειμένου με έναν άλλο χαρακτήρα (ή χαρακτήρες). Στο παρακάτω στιγμιότυπο οθόνης, υπάρχει ένα σύνολο δεδομένων του Microsoft Word Για παράδειγμα, θέλουμε να αντικαταστήσουμε το " Λέξη " με " Excel ". Θα εφαρμόσουμε το Λειτουργία SUBSTITUTE για να το κάνει.

Η σύνταξη του Excel Λειτουργία SUBSTITUTE έχει ως εξής:

SUBSTITUTE(text, old_text, new_text, [instance_num])

Κείμενο - το αρχικό κείμενο στο οποίο θέλετε να κάνετε αλλαγές.

Old_text - τους χαρακτήρες που θέλετε να αντικαταστήσετε.

New_text - οι νέοι χαρακτήρες που θα χρησιμοποιηθούν στη θέση του παλιού κειμένου

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

Για παράδειγμα, όλοι οι παρακάτω τύποι αντικαθιστούν το " 1 " με " 2 " στο κελί B5 , αλλά τα αποτελέσματα διαφέρουν ανάλογα με τον αριθμό που δίνετε στο τελευταίο όρισμα:

a) =SUBSTITUTE(B5, "Word", "Excel", 1) - Αντικαθιστά την πρώτη εμφάνιση του " Λέξη " με " Excel ".

β) =SUBSTITUTE(B5, "Word", "Excel", 2) - Αντικαθιστά τη δεύτερη εμφάνιση του " Λέξη " με " Excel ".

γ) =SUBSTITUTE(B5, "Word", "Excel") - Αντικαθιστά όλα τα περιστατικά " Λέξη " με " Excel ".

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

Βήμα 1:

• Πληκτρολογήστε τον ακόλουθο τύπο στο κελί,

Βήμα 2:

• Τύπος Εισάγετε το για να δείτε τα αποτελέσματα.

Βήμα 3:

• Επαναλάβετε τα προηγούμενα βήματα για τα άλλα δύο κριτήρια.

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

2. Φωλιάστε τη λειτουργία SUBSTITUTE για την αντικατάσταση πολλαπλών χαρακτήρων

Για να κάνετε πολλαπλές αντικαταστάσεις, μέσα σε έναν ενιαίο τύπο, μπορείτε να φωλιάσετε πολλαπλές Λειτουργίες SUBSTITUTE.

Ας πούμε ότι έχετε μια τιμή κειμένου όπως " art., amend., cl. " στο κελί B5 , όπου " τέχνη ." σημαίνει " άρθρο ", " τροποποίηση. " σημαίνει " τροπολογία " και " cl. " σημαίνει " ρήτρα ".

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

=SUBSTITUTE(B5, "art.", "article")

=SUBSTITUTE(B5, "amend.", "amendments")

=SUBSTITUTE(B5, "cl.", "clause")

Στη συνέχεια, φωλιάστε τα το ένα μέσα στο άλλο.

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(B5, "art.", "article"), "amend.", "amendments"), "cl.", "clause")

Για να το κάνετε, ακολουθήστε τα παρακάτω βήματα.

Βήμα 1:

• Στο κελί C5 , πληκτρολογήστε τον ακόλουθο τύπο.

Βήμα 2:

• Στη συνέχεια, πατήστε Εισάγετε το για να δείτε την αλλαγή.

Βήμα 3:

• Αντιγράψτε τον τύπο στα άλλα απαιτούμενα κελιά.

Ως εκ τούτου, θα δείτε τις αντικατασταθείσες τιμές που εμφανίζονται στο παρακάτω στιγμιότυπο οθόνης.

3. Εκτελέστε τη λειτουργία SUBSTITUTE με τη λειτουργία INDEX για την αντικατάσταση πολλαπλών χαρακτήρων

Εκτός από τις προηγούμενες μεθόδους, μπορείτε επίσης να χρησιμοποιήσετε την εντολή Λειτουργία SUBSTITUTE με το Λειτουργία INDEX για να αντικαταστήσετε πολλαπλούς χαρακτήρες.

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

Για να αντικαταστήσετε πολλαπλούς χαρακτήρες εφαρμόζοντας και τα δύο ΥΠΟΚΑΤΑΣΤΑΣΗ και το Λειτουργία INDEX ακολουθήστε τα παρακάτω βήματα.

Βήμα 1:

• Πρώτον, εισαγάγετε τον ακόλουθο τύπο στο κελί C5 ,

Πού,

INDEX εύρος εύρεσης είναι E5:E6

INDEX εύρος εύρεσης είναι E5:E6

Βήμα 2:

• Στη συνέχεια, Hit Εισάγετε το για να δείτε τα αποτελέσματα.

• Τέλος, αντιγράψτε τον τύπο για άλλα κελιά.

Παρόμοιες αναγνώσεις:

• Εύρεση και αντικατάσταση πολλαπλών τιμών στο Excel (6 γρήγορες μέθοδοι)
• Πώς να αντικαταστήσετε ειδικούς χαρακτήρες στο Excel (6 τρόποι)
• Αντικατάσταση κειμένου ενός κελιού με βάση την κατάσταση στο Excel (5 μέθοδοι)

4. Εφαρμόστε τη λειτουργία REPLACE για την αντικατάσταση πολλαπλών χαρακτήρων

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

Η σύνταξη του Excel Λειτουργία REPLACE έχει ως εξής:

REPLACE(old_text, start_num, num_chars, new_text)

Όπως βλέπετε, η Λειτουργία REPLACE έχει 4 ορίσματα, τα οποία είναι όλα υποχρεωτικά.

Old_text - το αρχικό κείμενο (ή μια αναφορά σε ένα κελί με το αρχικό κείμενο) στο οποίο θέλετε να αντικαταστήσετε ορισμένους χαρακτήρες.

Start_num - η θέση του πρώτου χαρακτήρα εντός old_text .

Num_chars - τον αριθμό των χαρακτήρων που θέλετε να αντικαταστήσετε.

New_text - το κείμενο αντικατάστασης.

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

Βήμα 1:

• Πρώτον, στο κύτταρο D5 , πληκτρολογήστε τον ακόλουθο τύπο,

Βήμα 2:

• Στη συνέχεια, πατήστε Εισάγετε το για να δείτε την αλλαγή.

Βήμα 3:

• Για να κάνετε όλες τις αλλαγές που εμφανίζονται στο παρακάτω στιγμιότυπο οθόνης, αντιγράψτε τους τύπους για τα απαιτούμενα κελιά.

5. Φωλιάστε τη λειτουργία REPLACE για την αντικατάσταση πολλαπλών χαρακτήρων

Αρκετά συχνά, είναι πιθανό να χρειαστεί να αλλάξετε πολλά στοιχεία στο ίδιο κελί. Φυσικά, θα μπορούσατε να εκτελέσετε μία αντικατάσταση, να εξάγετε ένα ενδιάμεσο αποτέλεσμα σε μια νέα στήλη και στη συνέχεια να χρησιμοποιήσετε την εντολή Λειτουργία REPLACE Ωστόσο, η χρήση ένθετων Λειτουργίες REPLACE , οι οποίες σας επιτρέπουν να κάνετε πολλές αντικαταστάσεις με έναν μόνο τύπο, είναι μια καλύτερη και πιο επαγγελματική επιλογή. Παρόμοια με το Λειτουργία SUBSTITUTE , μπορείτε επίσης να εφαρμόσετε τη φωλιά στο Λειτουργία REPLACE .

Ας υποθέσουμε ότι έχετε μια λίστα με αριθμούς τηλεφώνου στη στήλη A που είναι μορφοποιημένοι ως εξής " 123-456-789 " και θέλετε να προσθέσετε χώρο για να τα κάνετε να φαίνονται με άλλο τρόπο. Για να το θέσω αλλιώς, θέλετε να αλλάξετε το " 123-456-789 " σε " 123 456 789 ".

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

Βήμα 1:

• Πληκτρολογήστε τον ακόλουθο τύπο στο κελί C5 στην αρχή,

Βήμα 2:

• Δεύτερον, πατήστε Εισάγετε το για να δείτε την αλλαγή στο κύτταρο D5 .

Βήμα 3:

• Τέλος, αντιγράψτε τον τύπο και επαναλάβετε τα βήματα για τα απαιτούμενα κελιά.

6. Εκτελέστε έναν κώδικα VBA για την αντικατάσταση πολλαπλών χαρακτήρων

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

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

Βήμα 1:

• Πρώτον, πατήστε Alt + F11 για να ανοίξετε το Φύλλο εργασίας με δυνατότητα μακροεντολών .
• Πηγαίνετε στο Εισαγωγή καρτέλα.
• Στη συνέχεια, επιλέξτε Ενότητα .

Βήμα 2:

• Αντιγράψτε τα ακόλουθα VBA κωδικός,

 Sub replaceAll() 'δηλώνουμε μεταβλητή αντικειμένου για να κρατήσουμε την αναφορά στο κελί με το οποίο εργαζόμαστε Dim myCell As Range 'δηλώνουμε μεταβλητές για να κρατήσουμε τις παραμέτρους για την αντικατάσταση της συμβολοσειράς (συμβολοσειρά προς αντικατάσταση και συμβολοσειρά αντικατάστασης) Dim myStringToReplace As String Dim myReplacementString As String 'προσδιορίζουμε το κελί με το οποίο εργαζόμαστε Set myCell = ThisWorkbook.Worksheets("VBA").Range("C5") 'καθορίζουμε τις παραμέτρους για την αντικατάσταση της συμβολοσειράς(συμβολοσειρά προς αντικατάσταση και συμβολοσειρά αντικατάστασης) myStringToReplace = "234-235-5689" myReplacementString = "234 235 5689" 'αντικαταστήστε όλες τις εμφανίσεις εντός της συμβολοσειράς στο κελί με το οποίο εργάζεστε, και αναθέστε την προκύπτουσα συμβολοσειρά στο Range. 'Ιδιότητα Value του κελιού με το οποίο εργάζεστε myCell.Value = Replace(Expression:=myCell.Value, Find:=myStringToReplace, Replace:=myReplacementString) End Sub 

• Πού,

ThisWorkbook.Worksheets("το όνομα του τρέχοντος φύλλου εργασίας σας")

Range("το κελί αναφοράς σας")

myStringToReplace = "τιμή που θέλετε να αντικαταστήσετε"

myReplacementString = "η τιμή που αντικαταστήσατε"

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

Συμπέρασμα

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

Αν έχετε οποιεσδήποτε ερωτήσεις - Μη διστάσετε να μας ρωτήσετε. Επίσης, μη διστάσετε να αφήσετε σχόλια στην παρακάτω ενότητα.

Εμείς, οι Exceldemy Ομάδα, ανταποκρίνονται πάντα στα ερωτήματά σας.

Μείνετε μαζί μας &, συνεχίστε να μαθαίνετε.