Вы можете легко заменить все умляуты с помощью макроса
Обычно это не такая большая проблема, как несколько лет назад, но умляуты по-прежнему могут вызывать проблемы при обмене данными. На следующем рисунке показана таблица с текстами, содержащими умляуты:
Если вам нужно обмениваться информацией с другими системами или отправлять данные в другие страны, может быть полезно заменить все умляуты в таблице. Вы заменяете ä на ae, ö на oe и т. Д.
Конечно, вы можете сделать это, неоднократно вызывая функцию EDIT - REPLACE. Но это большая работа. Если вы хотите заменить все три умляута ä, ö и ü в верхнем и нижнем регистре, а также ß, вам необходимо выполнить семь операций замены подряд.
С макросом проще. Вот соответствующий программный код:
Sub ReplaceUmlauts ()
Тусклая ячейка как диапазон
С Application.WorksheetFunction
Для каждой выделенной ячейки
Cell.Value = .Substitute (.Substitute (.Substitute (.Substitute (_
.Substitute (.Substitute (.Substitute (Cell.Value, "ä", "ae"), _
«ö», «oe»), «ü», «ue»), «Ö», «Oe»), «Ü», «Ue»), «ß», «ss»), _
«Ä», «Ae»)
Следующая ячейка
Конец с
Конец подписки
Макрос вставляет соответствующие вызовы замены через функцию Запасные друг в друга. Это имя функции таблицы REPLACE на английском языке.
Чтобы использовать макрос, сначала выберите ячейки, в которых вы хотите заменить умляуты, а затем вызовите макрос. На следующем рисунке показано, как выглядит таблица с умляутами после запуска макроса:
