Як замінити всі символи в таблиці іншими символами
Чи знаете ви, що? Дані, які ви отримуєте від ділових партнерів або після імпорту даних, містять неправильні символи. Може статися так, що десятковий знак з’являється скрізь, де потрібен десятковий знак. Або може статися, що між окремими цифрами з’являються косі риски.
Ви можете скористатися командою REPLACE, щоб знайти ці символи та замінити їх іншими символами. Але потрібно багато зусиль, якщо ви хочете робити цей процес частіше. Ви економите час, виконуючи завдання за допомогою макросу. Ви можете швидко та легко знову викликати цей макрос у тій же ситуації в майбутньому.
Щоб включити макрос у порожню книгу, відкрийте нову книгу у всіх версіях Excel за допомогою комбінації клавіш CTRL N. Потім натисніть комбінацію клавіш ALT F11, щоб відкрити редактор VBA. Виберіть команду INSERT - MODULE. Потім введіть такий макрос:
Поміняти підсимволи ()
Увімкнути Помилка Відновити Далі
Dim Cell As Range
Dim Search для As String
Dim Замінити на As As String
SearchFor = "."
ReplaceBy = ","
Для кожної клітинки в ActiveSheet.UsedRange
Cell.Value = Application.Substitute (Cell.Value, FindFor, ReplaceBy)
Наступна клітина
Помилка Перейти до 0
End Sub
Макрос замінює десяткову крапку десятковою комою у всіх клітинках, що використовуються в активному аркуші. Щоб викликати макрос, активуйте потрібний робочий аркуш, натисніть комбінацію клавіш ALT F8 і виберіть макрос ОБМІН ЗМІНАМ.
Щоб контролювати, який вміст шукати та замінювати, відрегулюйте дві змінні SUCHENNACH та REPLACE BY у макросі.
