Как заменить все символы в таблице другими символами
Вы это знаете? Данные, полученные от деловых партнеров или после импорта данных, содержат неправильные символы. Может случиться так, что десятичная точка появится там, где требуется десятичная точка. Или может случиться так, что между отдельными цифрами появится косая черта.
Вы можете использовать команду REPLACE, чтобы найти эти символы и заменить их другими символами. Но если вы хотите делать этот процесс чаще, потребуется немало усилий. Вы экономите время, выполняя задачу с помощью макроса. Вы можете быстро и легко вызвать этот макрос снова в той же ситуации в будущем.
Чтобы включить макрос в пустую книгу, откройте новую книгу во всех версиях Excel, используя комбинацию клавиш CTRL N. Затем нажмите комбинацию клавиш ALT F11, чтобы открыть редактор VBA. Там выберите команду ВСТАВИТЬ - МОДУЛЬ. Затем введите следующий макрос:
Поменять местами вспомогательные символы ()
При ошибке Возобновить Далее
Тусклая ячейка как диапазон
Тусклый поиск как строка
Заменить тусклым цветом строкой
SearchFor = "."
ReplaceBy = ","
Для каждой ячейки в ActiveSheet.UsedRange
Cell.Value = Application.Substitute (Cell.Value, FindFor, ReplaceBy)
Следующая ячейка
При ошибке GoTo 0
Конец подписки
Макрос заменяет десятичную точку десятичной точкой во всех ячейках активного листа. Чтобы вызвать макрос, активируйте желаемый рабочий лист, нажмите комбинацию клавиш ALT F8 и выберите макрос CHARACTER EXCHANGE.
Чтобы контролировать, какой контент искать и заменять, настройте две переменные SUCHENNACH и REPLACE BY в макросе.