Замените акцентированные символы обычными символами на VBA

Замените акцентированные символы на обычные символы с помощью Kutools for Excel

Для пользователей, имеющих опыт работы с Microsoft Excel, использование макроса VBA - простой способ справиться с этой сложной работой.

1. Удерживая нажатой другой + F11 ключи в Excel, и он открывает Окно Microsoft Visual Basic для приложений.

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Автора Заменить акцентированные символы инструмент позволяет вам легко заменять все виды акцентированных символов обычными символами сразу.

1. Выберите диапазон, в котором вы замените все символы с диакритическими знаками.

2. Нажмите Кутулс > Текст > Заменить символы с диакритическими знаками…, См. Снимок экрана:

3. In Заменить символы с диакритическими знаками диалогового окна, нажмите Выбрать все , чтобы выбрать все правила замены, и нажмите кнопку ОК, чтобы заменить все символы с диакритическими знаками. см. снимок экрана:

Заметки:
(1) Если вам не нужны определенные символы с диакритическими знаками, вы можете щелкнуть Добавить правил Нажмите кнопку, чтобы добавить свои собственные правила в список в диалоговом окне «Замена диакритических знаков», расположенном выше.
(2) Вы можете настроить новые правила замены в диалоговом окне «Замена диакритических знаков».

Теперь все акцентированные символы в строках выбранного диапазона будут немедленно преобразованы в обычные символы. Смотрите скриншот:

Команда Заменить символы с диакритическими знаками функция Kutools for Excel может легко заменить все виды акцентированных символов обычными символами во всей книге. Получите бесплатную пробную версию!