Preskoči na glavno vsebino

Kako v Excelu nadomestiti naglašene znake z običajnimi?

Ste v Microsoft Excelu prejeli nekaj poročil s poudarjenimi znaki? Dolgočasno je videti celoten delovni zvezek in ročno zamenjati naglašene znake z običajnimi, na primer "û"do" u "In ta članek bo predstavil nekaj zapletenih stvari za hitro zamenjavo naglašenih znakov z običajnimi znaki v Excelu.


Poudarjene znake zamenjajte z običajnimi znaki z VBA

Za uporabnike, ki imajo izkušnje z Microsoft Excelom, je uporaba makra VBA enostaven način za reševanje tega zapletenega dela.

1. Drži dol druga + F11 tipke v Excelu in odpre Okno Microsoft Visual Basic for Applications.

2. klik Vstavi > Moduliin v mapo prilepite naslednji makro Okno modula.

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. Nato pojdite na prazno celico in prilepite formulo v celico: = CheckStringCHAR (InString), Na primer = CheckStringCHAR ("ù")ali = CheckStringCHAR (A2).

Opombe:
(1) Vaš Microsoft Visual Basic morda sploh ne prepozna naglašenih znakov, če ne podpira Unicode. Ko na primer prilepite "š" v Visual Basic, lahko dobite "?". V tem primeru ta makro ni na voljo.
(2) Ne nadomesti naglasnih znakov v nizih izbrane celice.


Poudarjene znake zamenjajte z običajnimi znaki z Kutools za Excel

Za uporabo makra VBA zahteva preveč veščin in znanja. Naslednja metoda vam bo olajšala delo z nekaj kliki. Orodje Kutools for Excel z zamenjavo naglašenih znakov vam omogoča enostavno zamenjavo vseh vrst naglašenih znakov z običajnimi znaki hkrati.

Kutools za Excel - Napolnite Excel z več kot 300 osnovnimi orodji. Uživajte v 30-dnevnem BREZPLAČNEM preskusu s polnimi funkcijami brez kreditne kartice! Get It Now

1. Izberite obseg, v katerem boste zamenjali vse poudarjene znake.

2. klik Kutools > Besedilo > Zamenjaj poudarjene znake…, Glej posnetek zaslona:

3. In Zamenjaj poudarjene znake pogovorno okno, kliknite na Izberi vse , da izberete vsa pravila za zamenjavo, in kliknite gumb V redu, če želite zamenjati vse poudarjene znake. glej posnetek zaslona:

Opombe:
(1) Če ni posebnih poudarjenih znakov, ki jih želite, lahko kliknete Dodaj pravilo gumb, da v seznam v zgornjem pogovornem oknu Zamenjaj poudarjene znake dodate svoja pravila.
(2) Nova pravila o zamenjavi lahko prilagodite v pogovornem oknu Zamenjaj poudarjene znake.

Zdaj boste vse naglašene znake v nizih izbranega obsega takoj pretvorili v običajne znake. Oglejte si posnetek zaslona:

O Zamenjaj poudarjene znake Funkcija Kutools za Excel lahko zlahka nadomesti vse vrste naglašenih znakov z običajnimi znaki v celotnem delovnem zvezku. Brezplačno preskusite!

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
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