Nahraďte znaky s diakritikou běžnými znaky za VBA

Nahraďte znaky s diakritikou běžnými znaky programem Kutools pro Excel

Pro uživatele, kteří mají zkušenosti s Microsoft Excel, je použití makra VBA snadným způsobem, jak zvládnout tuto komplikovanou práci.

1. Podržte stisknuté tlačítko Další + F11 klíče v aplikaci Excel a otevře Okno Microsoft Visual Basic pro aplikace.

2. klikněte Vložit > Modula vložte následující makro do souboru Okno modulu.

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. Pak přejděte do prázdné buňky a vložte vzorec do buňky: = CheckStringCHAR (InString), Například = CheckStringCHAR ("ù")nebo = CheckStringCHAR (A2).

Poznámky:
(1) Váš Microsoft Visual Basic nemusí vůbec rozpoznávat znaky s diakritikou, pokud nepodporuje Unicode. Když například vložíte znak „š“ do jazyka Visual Basic, může se zobrazit „?“. Pokud ano, toto makro není k dispozici.
(2) Nenahrazuje znaky s diakritikou v řetězcích vybrané buňky přímo.

Používání makra VBA vyžaduje příliš mnoho dovedností a znalostí. A následující metoda vám pomůže pracovat snadněji pouze s několika kliknutími. Nástroj Kutools pro Excel pro nahrazení znaků s diakritikou vám umožní snadno nahradit všechny druhy znaků s diakritikou běžnými znaky najednou.

1. Vyberte rozsah, ve kterém nahradíte všechny znaky s diakritikou.

2. klikněte Kutools > Text > Nahraďte znaky s diakritikou…, Viz screenshot:

3. In Nahraďte znaky s diakritikou dialogové okno, klepněte na tlačítko Vybrat vše Klepnutím na tlačítko vyberte všechna pravidla nahrazení a klepnutím na tlačítko Ok nahradíte všechny znaky s diakritikou. viz screenshot:

Poznámky:
(1) Pokud nemáte nějaké konkrétní znaky s diakritikou, můžete kliknout na Přidat pravidlo tlačítko pro přidání vlastních pravidel do seznamu ve výše uvedeném dialogu Nahradit znaky s diakritikou.
(2) V dialogovém okně Nahradit znaky s diakritikou můžete upravit nová pravidla nahrazení.

Nyní budete mít všechny znaky s diakritikou v řetězcích vybraného rozsahu okamžitě převedeny na běžné znaky. Viz screenshot:

Projekt Nahraďte znaky s diakritikou Funkce Kutools pro Excel může snadno nahradit všechny druhy znaků s diakritikou za běžné znaky v celém sešitu. Vyzkoušejte zdarma!