Note: The other languages of the website are Google-translated. Back to English

Как заменить символы с диакритическими знаками на обычные символы в Excel?

Вы получали отчеты с акцентированными символами в Microsoft Excel? Просматривать всю книгу и заменять символы с диакритическими знаками на обычные вручную, например "û"на" u ". И эта статья познакомит вас с некоторыми хитростями, чтобы быстро заменить символы с диакритическими знаками на обычные символы в Excel.


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

Для пользователей, имеющих опыт работы с 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) Он не заменяет акцентированные символы в строках выбранной ячейки напрямую.


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

Для использования макроса VBA требуется слишком много навыков и знаний. И следующий метод поможет вам работать с несколькими щелчками мыши. Kutools for ExcelАвтора Заменить акцентированные символы инструмент позволяет вам легко заменять все виды акцентированных символов обычными символами сразу.

Kutools for Excel - Включает более 300 удобных инструментов для Excel. Полнофункциональная бесплатная пробная версия 30-день, кредитная карта не требуется! Get It Now

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

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

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

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

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

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


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (12)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
В части «Заменить акцентированные символы на обычные символы с помощью VBA», шаг 3, вы должны заменить CheckStringCHAR на STRIPACCENT, который является именем функции в предоставленном коде!
Этот комментарий был сведен к минимуму модератором на сайте
Привет, отличный макрос. Спасибо, что опубликовали это. Однако мне интересно, хочу ли я заменить все символы в файле excel, как я могу сделать это сразу? Спасибо, Вивек.
Этот комментарий был сведен к минимуму модератором на сайте
Если вы хотите заменить определенный символ акцента (например, é), вы можете выполнить поиск и заменить все (найдите «é» и замените на «e»). Это решило мою проблему.
Этот комментарий был сведен к минимуму модератором на сайте
Ни хрена, Шерлок
Этот комментарий был сведен к минимуму модератором на сайте
можно ли заменить несколько символов другим символом? Невозможно сказать, что я хочу заменить é на é

Как я могу делать такие массовые замены в Kutools for Excel? Мне нравится функциональность множественной замены, но было бы намного полезнее, если бы была возможна замена целых слов. Любая идея, как я могу это сделать?
Этот комментарий был сведен к минимуму модератором на сайте
когда вы удаляете специальный символ, он также удаляет пробел между текстом ??
Этот комментарий был сведен к минимуму модератором на сайте
Функция VBA StripAccent() отлично сработала, большое вам за это спасибо. Но я хотел бы спросить, что именно делает этот "* 1" в конце строки инициализации "Dim A As String * 1", я никогда раньше этого не видел и сам не смог найти ответ на этот вопрос. уже.
Этот комментарий был сведен к минимуму модератором на сайте
Я добавил код, и он отлично работает, однако мне нужно добавить больше акцента в код, так как мне не хватает полировки. Как я могу отредактировать код и добавить эти акценты? Я пытаюсь сделать это в блокноте, а затем снова вставляю код, но он меняет букву на обычные символы. Я не эксперт, поэтому мне очень нужна ваша помощь, пожалуйста!
Этот комментарий был сведен к минимуму модератором на сайте
Const AccChars = "ŠŽšžYAÁÂAÄAÇEÉEËIÍÎI?NOóÔOÖUÚUÜÝaáâaäaçeéeëiíîi?noóôoöuúuüyyĄĘĆŁŃóŚŻŹąęćłńóśżź"
Const RegChars = "SZszYAAAAAACEEEEEIIIDNOOOOOUUUUYaaaaaceeeeiiiidnoooouuuuyyAECLNOSZZaeclnoszz"
Этот комментарий был сведен к минимуму модератором на сайте
Я попробовал этот сценарий VBA на своем листе, в котором было несколько имен с акцентными символами. Это сделало хорошую работу по их очистке. Спасибо.
Этот комментарий был сведен к минимуму модератором на сайте
Добрый день, старший покупатель xlsm mi vo win11 debuguje na tom, že nevie nájsť meno harka "Prehľad", má problem s diakritikou.
Nie je problém zmeniť pomenovanie hárka na nové bez diakritiky соответственно. vyhľadať objekt inak, oveľa väčší problém je však zároven ten,
že z tohto súboru v exceli pomocou VBA odosielam emaily a ak chcem pomocou VBA napisať telo emailu, tak sa mi v outlooku
menia písmená s diakritikou (č, ď, ť ...) на розне zástupné znaky. Email vyzerá nedôstojne a nechcem ho písať ani bez diakritiky,
pretože sme predsa na Slovensku a komunikujeme este 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?
В предположении о грибке без проблем.
Ďakujem pekne.
Этот комментарий был сведен к минимуму модератором на сайте
Как заменить несколько символов одним? Например Ã © с e?
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL