Замініть наголошені символи звичайними на VBA

Замініть символи з акцентами на звичайні символи за допомогою Kutools для Excel

Для користувачів, які мають досвід роботи з Microsoft Excel, використання макросу VBA - це простий спосіб вирішити цю складну роботу.

1. Утримуйте клавішу інший + F11 клавіші в Excel, і він відкриває Вікно Microsoft Visual Basic для програм.

2. Натисніть Insert > Модуліта вставте наступний макрос у Вікно модуля.

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 для Excel дає змогу легко замінювати всі типи символів із діакритичними знаками звичайними символами одночасно.

1. Виберіть діапазон, у якому ви заміните всі символи з наголосом.

2. Натисніть Кутулс > текст > Замінити наголошені символи…, Див. Скріншот:

3. In Замінити наголошені символи у діалоговому вікні натисніть Вибрати всі , щоб вибрати всі правила заміни, і натисніть кнопку Ok, щоб замінити всі символи з наголосом. див. скріншот:

примітки:
(1) Якщо немає певних символів з наголосом, які ви хочете, ви можете натиснути Додайте правило , щоб додати власні правила у поле списку у діалоговому вікні Замінити наголошені символи.
(2) Ви можете налаштувати нові правила заміни у діалоговому вікні Замінити наголошені символи.

Тепер усі символи з наголосом у рядках вибраного діапазону будуть негайно перетворені в звичайні символи. Дивіться знімок екрана:

Команда Замінити наголошені символи Функція Kutools для Excel може легко замінити всі типи символів із діакритичними знаками звичайними символами у всій книзі. Отримайте безкоштовну пробну версію!