Poudarjene znake zamenjajte z običajnimi znaki z VBA

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

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.

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.

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!