Μετάβαση στο κύριο περιεχόμενο

Πώς να αντικαταστήσετε τονισμένους χαρακτήρες με κανονικούς χαρακτήρες στο Excel;

Έχετε λάβει αναφορές με τονισμένους χαρακτήρες στο Microsoft Excel; Φαίνεται κουραστικό να διαβάσετε ολόκληρο το βιβλίο εργασίας και να αντικαταστήσετε χειροποίητους χαρακτήρες σε κανονικούς χαρακτήρες με μη αυτόματο τρόπο, όπως "û"to" u ". Και αυτό το άρθρο θα παρουσιάσει μερικά δύσκολα πράγματα για να αντικαταστήσετε γρήγορα τονισμένους χαρακτήρες με κανονικούς χαρακτήρες στο Excel.


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

Για χρήστες με εμπειρία στο 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) Δεν αντικαθιστά άμεσα τονισμένους χαρακτήρες στις συμβολοσειρές του επιλεγμένου κελιού.


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

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

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

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

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

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

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

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

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

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

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

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

kte καρτέλα 201905


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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (12)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How can I replace multiple characters with a single one? For example é with e?
This comment was minimized by the moderator on the site
Dobrý deň, starší súbor xlsm mi vo win11 debuguje na tom, že nevie nájsť meno hárka "Prehľad", má problém s diakritikou.
Nie je problém zmeniť pomenovanie hárka na nové bez diakritiky resp. vyhľadať objekt inak, oveľa väčší problém je však zároveň ten,
že z tohto súboru v exceli pomocou VBA odosielam emaily a ak chcem pomocou VBA napísať telo emailu, tak sa mi v outlooku
menia písmená s diakritikou (č, ď, ť ...) na rôzne zástupné znaky. Email vyzerá nedôstojne a nechcem ho písať ani bez diakritiky,
pretože sme predsa na Slovensku a komunikujeme ešte v materinskej reči...
Môžete mi prosím napísať, či sa tento problém dá odstrániť konkrétnym nastavením windows alebo officu?
V predošlom počítači to fungovalo bez problémov.
Ďakujem pekne.
This comment was minimized by the moderator on the site
I tried that VBA script on my worksheet which had several names with accent characters. This did a nice job of cleaning them up. Thanks.
This comment was minimized by the moderator on the site
I have added the code and it work perfectly however I need to add more accent to the code as I´m missing polish accents. How can I edit the code and add those accents? I try to do it in a notepad and then paste again the code but it change the letter back to normal characters. I'm not an expert so I really need your help please!
This comment was minimized by the moderator on the site
Const AccChars = "ŠŽšžYAÁÂAÄAÇEÉEËIÍÎI?NOóÔOÖUÚUÜÝaáâaäaçeéeëiíîi?noóôoöuúuüýyĄĘĆŁŃóŚŻŹąęćłńóśżź"
Const RegChars = "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyyAECLNOSZZaeclnoszz"
This comment was minimized by the moderator on the site
The VBA function StripAccent() worked like a charm, thank you very much for it. But I would like to ask what exactly does this "* 1" at at the end of "Dim A As String * 1" initialization string, I've never seen that before and I wasn't able to find an answer to that myself so far.
This comment was minimized by the moderator on the site
when you remove special character it also remove the space between the text ??
This comment was minimized by the moderator on the site
is it possible to replace multiple characters with another character? There is no way to say I want to replace é by é

How can I do mass replacements like this in Kutools for Excel? I like the multireplace functionality but it would be a lot more useful if replacement of entire words would be possible. Anyboy any idea how I can do this?
This comment was minimized by the moderator on the site
If you are looking to replace a specific accent character (ex. é), you can do a Find and Replace All (search for "é" and replace with "e"). This solved my problem.
This comment was minimized by the moderator on the site
No shit Sherlock
This comment was minimized by the moderator on the site
Hello, Excellent Macro. Thanks for posting this. However I am wondering if I want to replace all of the characters in the excel file, how can I do that at once? Thanks Vivek
This comment was minimized by the moderator on the site
On the "Replace accented characters with regular characters with VBA" part, step 3, you must replace CheckStringCHAR for STRIPACCENT, which is the name of the function in the provided code!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations