Αντικαταστήστε τονισμένους χαρακτήρες με κανονικούς χαρακτήρες με VBA

Αντικαταστήστε τονισμένους χαρακτήρες με κανονικούς χαρακτήρες με Kutools για Excel

Για χρήστες με εμπειρία στο Microsoft Excel, η χρήση της μακροεντολής VBA είναι ένας εύκολος τρόπος αντιμετώπισης αυτής της περίπλοκης εργασίας.

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

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

Function StripAccent(thestring As String)
Dim A As String * 1
Dim B As String * 1
Dim i As Integer
Const AccChars= "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ"
Const RegChars= "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy"
For i = 1 To Len(AccChars)
A = Mid(AccChars, i, 1)
B = Mid(RegChars, i, 1)
thestring = Replace(thestring, A, B)
Next
StripAccent = thestring
End Function

3. Στη συνέχεια, μεταβείτε σε ένα κενό κελί και επικολλήστε τον τύπο σε ένα κελί: = CheckStringCHAR (InString), Για παράδειγμα = CheckStringCHAR ("ù"), ή = CheckStringCHAR (A2).

:
(1) Η Microsoft Visual Basic ενδέχεται να μην αναγνωρίζει καθόλου τονισμένους χαρακτήρες, εάν δεν υποστηρίζει το Unicode. Για παράδειγμα, όταν επικολλήσετε το "š" στη Visual Basic, ενδέχεται να λάβετε το "?". Εάν ναι, αυτή η μακροεντολή δεν είναι διαθέσιμη.
(2) Δεν αντικαθιστά άμεσα τονισμένους χαρακτήρες στις συμβολοσειρές του επιλεγμένου κελιού.

Απαιτεί πάρα πολλές δεξιότητες και γνώσεις για να χρησιμοποιήσετε τη μακροεντολή VBA. Και η ακόλουθη μέθοδος θα σας βοηθήσει να εργαστείτε πιο εύκολα με μόνο μερικά κλικ. Το εργαλείο Kutools for Excel's Replace Accented Characters σας επιτρέπει να αντικαταστήσετε εύκολα όλα τα είδη των τονισμένων χαρακτήρων με κανονικούς χαρακτήρες ταυτόχρονα.

1. Επιλέξτε το εύρος στο οποίο θα αντικαταστήσετε όλους τους τονισμένους χαρακτήρες.

2. Πατήστε Kutools > Κείμενο > Αντικαταστήστε τονισμένους χαρακτήρες…, Δείτε το στιγμιότυπο οθόνης:

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

Notes:
(1) Εάν δεν υπάρχουν συγκεκριμένοι τονισμένοι χαρακτήρες που θέλετε, μπορείτε να κάνετε κλικ στο Προσθήκη κανόνα κουμπί για να προσθέσετε τους δικούς σας κανόνες στο πλαίσιο λίστας στο παραπάνω παράθυρο διαλόγου Αντικαταστήστε τονισμένους χαρακτήρες.
(2) Μπορείτε να προσαρμόσετε νέους κανόνες αντικατάστασης στο πλαίσιο διαλόγου Αντικατάσταση χαρακτήρων με έμφαση.

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

Η Αντικαταστήστε τονισμένους χαρακτήρες Η δυνατότητα του Kutools για Excel μπορεί εύκολα να αντικαταστήσει όλα τα είδη των τονισμένων χαρακτήρων με κανονικούς χαρακτήρες σε ολόκληρο το βιβλίο εργασίας. Κάντε μια δωρεάν δοκιμή!