Замена текста в файлах excel

Подключитесь к эксперту. Учитесь у живых инструкторов.

Функции поиска и замены в Excel используются для поиска в книге необходимой информации, например определенного числа или текстовой строки. Вы можете либо найти элемент поиска для справки, либо заменить его на что-то другое. В условия поиска можно включить подстановочные знаки, такие как вопросительные знаки, тильды и звездочки, а также цифры. Искать можно по строкам и столбцам, в примечаниях или значениях, а также на листе или во всей книге.

Ваш браузер не поддерживает видео. Установите Microsoft Silverlight, Adobe Flash Player или Internet Explorer 9.

Поиск

Чтобы найти что-то, нажмите клавиши CTRL+F или перейдите в раздел Главная > Редактирование > найти & Выберите > Найти.

Примечание: В следующем примере мы нажали кнопку Параметры >> , чтобы отобразить все диалоговое окно Поиск. По умолчанию он отображается со скрытыми параметрами.

Нажмите клавиши CTRL+F, чтобы открыть диалоговое окно "Найти".

  1. В поле Найти что: введите текст или цифры, которые вы хотите найти, или щелкните стрелку в поле Найти что: и выберите последний элемент поиска из списка.

    Советы: В критериях поиска можно использовать подстановочные знаки — вопросительный знак (?), звездочку (*), тильду (~).

    • Используйте вопросительный знак (?) для поиска одного символа, например s?t находит «sat» и «set».

    • Используйте звездочку (*), чтобы найти любое количество символов. Например, s*d находит слова «sad» и «started».

    • Используйте тильду (~), за которой следует знак ?, *или ~, чтобы найти вопросительные знаки, звездочки или другие символы тильды, например fy91~? находит «fy91?».

  2. Нажмите кнопку Найти все или Найти далее , чтобы выполнить поиск.

    Совет: При нажатии кнопки Найти все будут перечислены все вхождения условий, которые вы ищете, а щелкнув определенное вхождение в списке, будет выбрана его ячейка. Вы можете отсортировать результаты поиска Найти все , щелкнув заголовок столбца.

  3. Щелкните Параметры>> , чтобы при необходимости определить поиск:

    • В: Чтобы найти данные на листе или во всей книге, выберите Лист или Книга.

    • Поиск: Вы можете выполнить поиск по строкам (по умолчанию) или по столбцам.

    • Посмотрите в: Чтобы найти данные с определенными сведениями, в поле щелкните Формулы, Значения, Заметки или Примечания.

      Примечание:   Формулы, значения, заметки и примечания доступны только на вкладке Найти . На вкладкеЗаменить доступны только формулы.

    • Вариант соответствия . Проверьте это, если вы хотите искать данные с учетом регистра.

    • Сопоставление всего содержимого ячейки . Проверьте это, если вы хотите искать ячейки, содержащие только символы, введенные в поле Найти: .

  4. Если вы хотите найти текст или цифры с определенным форматированием, нажмите кнопку Формат, а затем выберите нужные значения в диалоговом окне Поиск формата .

    Совет: Чтобы найти ячейки, точно соответствующие определенному формату, можно удалить все условия в поле Найти, а затем выбрать ячейку с нужным форматированием в качестве примера. Щелкните стрелку рядом с кнопкой Формат, выберите пункт Выбрать формат из ячейки, а затем щелкните ячейку с форматированием, которое требуется найти.

Заменить

Чтобы заменить текст или цифры, нажмите клавиши CTRL+H или перейдите в раздел Главная > Редактирование > Найти & Выберите > Заменить.

Примечание: В следующем примере мы нажали кнопку Параметры >> , чтобы отобразить все диалоговое окно Поиск. По умолчанию он отображается со скрытыми параметрами.

Нажмите клавиши CTRL+H, чтобы открыть диалоговое окно Заменить.

  1. В поле Найти что: введите текст или цифры, которые вы хотите найти, или щелкните стрелку в поле Найти что: и выберите последний элемент поиска из списка.

    Советы: В критериях поиска можно использовать подстановочные знаки — вопросительный знак (?), звездочку (*), тильду (~).

    • Используйте вопросительный знак (?) для поиска одного символа, например s?t находит «sat» и «set».

    • Используйте звездочку (*), чтобы найти любое количество символов. Например, s*d находит слова «sad» и «started».

    • Используйте тильду (~), за которой следует знак ?, *или ~, чтобы найти вопросительные знаки, звездочки или другие символы тильды, например fy91~? находит «fy91?».

  2. В поле Заменить на введите текст или числа, которые нужно использовать для замены текста поиска.

  3. Нажмите Заменить все или Заменить.

    Совет: При нажатии кнопки Заменить все все вхождения условий, которые вы ищете, будут заменены, в то время как Replace будет обновлять одно вхождение за раз.

  4. Щелкните Параметры>> , чтобы при необходимости определить поиск:

    • В: Чтобы найти данные на листе или во всей книге, выберите Лист или Книга.

    • Поиск: Вы можете выполнить поиск по строкам (по умолчанию) или по столбцам.

    • Посмотрите в: Чтобы найти данные с определенными сведениями, в поле щелкните Формулы, Значения, Заметки или Примечания.

      Примечание:   Формулы, значения, заметки и примечания доступны только на вкладке Найти . На вкладкеЗаменить доступны только формулы.

    • Вариант соответствия . Проверьте это, если вы хотите искать данные с учетом регистра.

    • Сопоставление всего содержимого ячейки . Проверьте это, если вы хотите искать ячейки, содержащие только символы, введенные в поле Найти: .

  5. Если вы хотите найти текст или цифры с определенным форматированием, нажмите кнопку Формат, а затем выберите нужные значения в диалоговом окне Поиск формата .

    Совет: Чтобы найти ячейки, точно соответствующие определенному формату, можно удалить все условия в поле Найти, а затем выбрать ячейку с нужным форматированием в качестве примера. Щелкните стрелку рядом с кнопкой Формат, выберите пункт Выбрать формат из ячейки, а затем щелкните ячейку с форматированием, которое требуется найти.

Существует два разных метода поиска или замены текста или чисел на компьютере Mac. Во-первых, используется диалоговое окно «Найти & заменить «. Во-вторых, используется панель поиска на ленте.

Диалоговое окно «Поиск & замена «

Панель поиска и параметры

Окно поиска

  1. Нажмите клавиши CTRL+F или выберите Главная > Найти & Выберите > Найти.

  2. В поле Найти: введите текст или цифры, которые нужно найти.

  3. Нажмите кнопку Найти далее , чтобы выполнить поиск.

  4. Вы можете дополнительно определить поиск:

    • В: Чтобы найти данные на листе или во всей книге, выберите Лист или Книга.

    • Поиск: Вы можете выполнить поиск по строкам (по умолчанию) или по столбцам.

    • Посмотрите в: Чтобы найти данные с определенными сведениями, в поле щелкните Формулы, Значения, Заметки или Примечания.

    • Вариант соответствия . Проверьте это, если вы хотите искать данные с учетом регистра.

    • Сопоставление всего содержимого ячейки . Проверьте это, если вы хотите искать ячейки, содержащие только символы, введенные в поле Найти: .

Советы: В критериях поиска можно использовать подстановочные знаки — вопросительный знак (?), звездочку (*), тильду (~).

  • Используйте вопросительный знак (?) для поиска одного символа, например s?t находит «sat» и «set».

  • Используйте звездочку (*), чтобы найти любое количество символов. Например, s*d находит слова «sad» и «started».

  • Используйте тильду (~), за которой следует знак ?, *или ~, чтобы найти вопросительные знаки, звездочки или другие символы тильды, например fy91~? находит «fy91?».

Параметры поиска

  1. Нажмите клавиши CTRL+F или выберите Главная > Найти & Выберите > Найти.

  2. В поле Найти: введите текст или цифры, которые нужно найти.

  3. Выберите Найти все , чтобы выполнить поиск всех вхождений.

    Поиск всех раскрывающихся дисплеев

    Примечание:  Диалоговое окно разворачивается, чтобы отобразить список всех ячеек, содержащих условие поиска, и общее количество ячеек, в которых оно отображается.

  4. Выберите любой элемент в списке, чтобы выделить соответствующую ячейку на листе.
     

    Примечание: Вы можете изменить содержимое выделенной ячейки.

  1. Нажмите клавиши CTRL+H или перейдите на главную страницу > Найти & выберите > Заменить.

  2. В поле Найти введите текст или цифры, которые требуется найти.

  3. Вы можете дополнительно определить поиск:

    • В: Чтобы найти данные на листе или во всей книге, выберите Лист или Книга.

    • Поиск: Вы можете выполнить поиск по строкам (по умолчанию) или по столбцам.

    • Вариант соответствия . Проверьте это, если вы хотите искать данные с учетом регистра.

    • Сопоставление всего содержимого ячейки . Проверьте это, если вы хотите искать ячейки, содержащие только символы, введенные в поле Найти: .
       

      Советы: В критериях поиска можно использовать подстановочные знаки — вопросительный знак (?), звездочку (*), тильду (~).

      • Используйте вопросительный знак (?) для поиска одного символа, например s?t находит «sat» и «set».

      • Используйте звездочку (*), чтобы найти любое количество символов. Например, s*d находит слова «sad» и «started».

      • Используйте тильду (~), за которой следует знак ?, *или ~, чтобы найти вопросительные знаки, звездочки или другие символы тильды, например fy91~? находит «fy91?».

  4. В поле Заменить на введите текст или числа, которые вы хотите использовать для замены текста поиска.

  5. Выберите Заменить или Заменить все.

    Советы: 

    • При нажатии кнопки Заменить все все вхождения ищемого условия будут заменены.

    • При нажатии кнопки Заменить можно заменить один экземпляр за раз, нажав кнопку Далее , чтобы выделить следующий экземпляр.

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

  2. Нажмите клавиши COMMAND+F или выберите лупу, чтобы развернуть панель поиска и ввести текст или число, которые нужно найти в поле поиска.

    Советы: В критериях поиска можно использовать подстановочные знаки — вопросительный знак (?), звездочку (*), тильду (~).

    • Используйте вопросительный знак (?) для поиска одного символа, например s?t находит «sat» и «set».

    • Используйте звездочку (*), чтобы найти любое количество символов. Например, s*d находит слова «sad» и «started».

    • Используйте тильду (~), за которой следует знак ?, *или ~, чтобы найти вопросительные знаки, звездочки или другие символы тильды, например fy91~? находит «fy91?».

  3. Нажмите клавишу RETURN.

    Примечания: 

    • Чтобы найти следующий экземпляр элемента, который вы ищете, снова нажмите клавишу RETURN или в диалоговом окне Найти и выберите Найти далее.

    • Чтобы указать дополнительные параметры поиска, выберите увеличительное стекло и выберите Поиск на листе или Поиск в книге. Можно также выбрать параметр Дополнительно , который открывает диалоговое окно Поиск .

    Совет: Вы можете отменить выполняемый поиск, нажав клавишу ESC.

Поиск

Чтобы найти что-то, нажмите клавиши CTRL+F или перейдите в раздел Главная > Редактирование > найти & Выберите > Найти.

Примечание: В следующем примере мы щелкнули > Параметры поиска , чтобы отобразить все диалоговое окно Поиск. По умолчанию отображается со скрытыми параметрами поиска.

Поиск текста или чисел в книге или листе с помощью клавиш CTRL+F

  1. В поле Найти что: введите текст или числа, которые нужно найти.

    Советы: В критериях поиска можно использовать подстановочные знаки — вопросительный знак (?), звездочку (*), тильду (~).

    • Используйте вопросительный знак (?) для поиска одного символа, например s?t находит «sat» и «set».

    • Используйте звездочку (*), чтобы найти любое количество символов. Например, s*d находит слова «sad» и «started».

    • Используйте тильду (~), за которой следует знак ?, *или ~, чтобы найти вопросительные знаки, звездочки или другие символы тильды, например fy91~? находит «fy91?».

  2. Нажмите кнопку Найти далее или Найти все , чтобы выполнить поиск.

    Совет: При нажатии кнопки Найти все будут перечислены все вхождения условий, которые вы ищете, а щелкнув определенное вхождение в списке, будет выбрана его ячейка. Вы можете отсортировать результаты поиска Найти все , щелкнув заголовок столбца.

  3. Щелкните > Параметры поиска , чтобы при необходимости дополнительно определить поиск:

    • В: Чтобы найти данные в пределах определенного выделенного фрагмента, нажмите кнопку Выбор. Чтобы найти данные на листе или во всей книге, выберите Лист или Книга.

    • Направление: Вы можете выполнить поиск вниз (по умолчанию) или вверх.

    • Вариант соответствия . Проверьте это, если вы хотите искать данные с учетом регистра.

    • Сопоставление всего содержимого ячейки . Проверьте это, если вы хотите искать ячейки, содержащие только символы, введенные в поле Найти .

Заменить

Чтобы заменить текст или цифры, нажмите клавиши CTRL+H или перейдите в раздел Главная > Редактирование > Найти & Выберите > Заменить.

Примечание: В следующем примере мы щелкнули > Параметры поиска , чтобы отобразить все диалоговое окно Поиск. По умолчанию отображается со скрытыми параметрами поиска.

Замените текст или числа в книге или листе, нажав клавиши CTRL+H

  1. В поле Найти что: введите текст или числа, которые нужно найти.

    Советы: В критериях поиска можно использовать подстановочные знаки — вопросительный знак (?), звездочку (*), тильду (~).

    • Используйте вопросительный знак (?) для поиска одного символа, например s?t находит «sat» и «set».

    • Используйте звездочку (*), чтобы найти любое количество символов. Например, s*d находит слова «sad» и «started».

    • Используйте тильду (~), за которой следует знак ?, *или ~, чтобы найти вопросительные знаки, звездочки или другие символы тильды, например fy91~? находит «fy91?».

  2. В поле Заменить на введите текст или числа, которые нужно использовать для замены текста поиска.

  3. Щелкните Заменить или Заменить все.

    Совет: При нажатии кнопки Заменить все все вхождения условий, которые вы ищете, будут заменены, в то время как Replace будет обновлять одно вхождение за раз.

  4. Щелкните > Параметры поиска , чтобы при необходимости дополнительно определить поиск:

    • В: Чтобы найти данные в пределах определенного выделенного фрагмента, нажмите кнопку Выбор. Чтобы найти данные на листе или во всей книге, выберите Лист или Книга.

    • Направление: Вы можете выполнить поиск вниз (по умолчанию) или вверх.

    • Вариант соответствия . Проверьте это, если вы хотите искать данные с учетом регистра.

    • Сопоставление всего содержимого ячейки . Проверьте это, если вы хотите искать ячейки, содержащие только символы, введенные в поле Найти .

Дополнительные сведения

Вы всегда можете задать вопрос специалисту Excel Tech Community или попросить помощи в сообществе Answers community.

Рекомендуемые статьи

Объединение и отмена объединения ячеек

ЗАМЕНИТЬ, ЗАМЕНИТЬБ

Применение проверки данных к ячейкам

Источник

Возможно, вас интересует: функция ЗАМЕНИТЬ в Excel.

  • «Найти и заменить» в Excel
    • Горячие клавиши
    • Процедура «Найти и заменить» не работает
    • Подстановочные знаки, или как найти “звёздочку”
  • Замена нескольких значений на несколько
    • Массовая замена с помощью функции “ПОДСТАВИТЬ”
    • Файл-шаблон с формулой множественной замены
  • Заменить несколько значений на одно
    • С помощью функции «ПОДСТАВИТЬ»
    • С помощью регулярных выражений
  • Массовая замена в !SEMTools
    • Пример: замена символов по вхождению
    • Пример: замена списка слов на другой список слов

Процедура поиска и замены данных — одна из самых востребованных в Excel. Базовая процедура позволяет заменить за один заход только одно значение, но зато множеством способов. Рассмотрим, как эффективно работать с ней.

Горячие клавиши

Сочетания клавиш ниже заметно ускорят работу с инструментом:

  • Для запуска диалогового окна поиска — Ctrl + F.
  • Для запуска окна поиска и замены — Ctrl + H.
  • Для выделения всех найденных ячеек (после нажатия кнопки «найти всё») — Ctrl + A.
  • Для очистки всех найденных ячеек — Ctrl + Delete.
  • Для ввода одних и тех же данных во все найденные ячейки — Ввод текста, Ctrl + Enter.

Смотрите gif-пример: здесь я произвожу поиск ячеек с дальнейшим их редактированием. В отличие от замены, редактирование найденных ячеек позволяет быстро менять их содержимое целиком.

Находим все пустые ячейки в диапазоне и заполняем их нулями или одним значением с помощью горячих клавиш

Процедура «Найти и заменить» не работает

Я сам когда-то неоднократно впадал в ступор в этой ситуации. Уверен и видишь своими глазами, что искомый паттерн в данных есть, но Excel при выполнении процедуры поиска сообщает:

Не удалось ничего найти по вашему запросу

или при замене:

Мы не нашли ничего, что нужно было заменить

Так вот, совет нажать кнопку “Параметры” в обоих этих сообщениях действительно полезен — там наверняка активен чекбокс “Учитывать регистр” или “Ячейка целиком”, которые мешают Excel найти искомое. Excel, в свою очередь, сохраняет конфигурацию последнего поиска.

Статус опций “Учитывать регистр” и “Ячейка целиком” виден после нажатия кнопки “Параметры”.

Подстановочные знаки, или как найти “звёздочку”

Сухая официальная справка по Excel сообщает:

— что можно использовать подстановочные символы “*” и “?”;
— что “*” и “?” означают несколько символов, включая их отсутствие, и один любой символ;
— что их можно использовать для соответствующих процедур поиска.

Чего не говорит справка, так это того, что в комбинации с опцией “ячейка целиком” эти символы позволяют, не прибегая к помощи расширенного фильтра и процедуры поиска группы ячеек:

  • находить ячейки, заканчивающиеся на определенный символ, слово или текст,
  • находить ячейки, начинающиеся с определенного символа, слова или текста,
  • находить непустые ячейки.

Если хотите поподробнее познакомиться с этими и другими специальными символами, читайте соответствующую статью.

В примере ниже мы находим все двузначные числа, затем числа, заканчивающиеся и начинающиеся на 7, и, наконец, все непустые ячейки. Напомню, выделить все результаты поиска помогает горячее сочетание клавиш Ctrl + A.

Так а как найти звёздочку?

Действительно, забыл. Чтобы найти «звёздочку», нужно в окошке поиска ставить перед ней знак ~ (тильда), он находится обычно под клавишей Esc. Это позволяет экранировать “звездочку”, как и вопросительный знак, и не воспринимать их как служебные символы.

Замена нескольких значений на несколько

Массовая замена в Excel — довольно частая потребность. Очень часто нужно массово и при этом быстро заменить несколько символов, слов и т.д. на другие. При этом на текущий момент простого инструмента в стандартном функционале Excel нет.

Тем не менее, если очень нужно, любую задачу можно решить. В зависимости от того, на что вы хотите заменить, могут помочь комбинации функций, регулярные выражения, а в самых сложных случаях — надстройка !SEMTools.

Эта задача более сложная, чем замена на одно значение. Как ни странно, функция «ЗАМЕНИТЬ» здесь не подходит — она требует явного указания позиции заменяемого текста. Зато может помочь функция «ПОДСТАВИТЬ».

Массовая замена с помощью функции “ПОДСТАВИТЬ”

Используя несколько условий в сложной формуле, можно производить одновременную замену нескольких значений. Excel позволяет использовать до 64 уровней вложенности — свобода действий высока. Например, вот так можно перевести кириллицу в латиницу:

При этом, если использовать в качестве подставляемого фрагмента пустоту, можно использовать функцию для удаления нескольких символов, — смотрите, как удалить цифры из ячейки этим способом.

Но у решения есть и свои недостатки:

  • Функция ПОДСТАВИТЬ регистрозависимая, что заставляет при замене одного символа использовать два его варианта — в верхнем и нижнем регистрах. Хотя в некоторых случаях, как, например, на картинке выше, это и преимущество.
  • Максимум 64 замены — хоть и много, но все же ограничение.
  • Формально процедура замены таким способом будет происходить массово и моментально, однако длительность написания таких формул сводит на нет это преимущество. За исключением случаев, когда они будут использоваться многократно.

Файл-шаблон с формулой множественной замены

Вместо явного прописывания заменяемых паттернов в формуле существует вариант использовать внутри нее ссылки на ячейки, значения в которых можно прописывать на свое усмотрение. Это сократит время, так как не требует редактирования сложной формулы.

Файл доступен по ссылке, но можно и не скачивать его, а просто скопировать текст формулы ниже и вставить ее в любую ячейку, кроме диапазона A1:B64. Формула заменяет в ячейке C1 значения в столбце A стоящими напротив в столбце B.

функция для замены нескольких букв
Формула в файле-шаблоне для множественной замены на примере транслитерации

А вот и она сама (тройной клик по любой части текста = выделить всю формулу): обращается к ячейке D1, делая 64 замены по правилам, указанным в ячейках A1-B64. При этом в столбцах можно удалять значения — это не нарушит её работу.

=ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(D1;$A$1;$B$1);$A$2;$B$2);$A$3;$B$3);$A$4;$B$4);$A$5;$B$5);$A$6;$B$6);$A$7;$B$7);$A$8;$B$8);$A$9;$B$9);$A$10;$B$10);$A$11;$B$11);$A$12;$B$12);$A$13;$B$13);$A$14;$B$14);$A$15;$B$15);$A$16;$B$16);$A$17;$B$17);$A$18;$B$18);$A$19;$B$19);$A$20;$B$20);$A$21;$B$21);$A$22;$B$22);$A$23;$B$23);$A$24;$B$24);$A$25;$B$25);$A$26;$B$26);$A$27;$B$27);$A$28;$B$28);$A$29;$B$29);$A$30;$B$30);$A$31;$B$31);$A$32;$B$32);$A$33;$B$33);$A$34;$B$34);$A$35;$B$35);$A$36;$B$36);$A$37;$B$37);$A$38;$B$38);$A$39;$B$39);$A$40;$B$40);$A$41;$B$41);$A$42;$B$42);$A$43;$B$43);$A$44;$B$44);$A$45;$B$45);$A$46;$B$46);$A$47;$B$47);$A$48;$B$48);$A$49;$B$49);$A$50;$B$50);$A$51;$B$51);$A$52;$B$52);$A$53;$B$53);$A$54;$B$54);$A$55;$B$55);$A$56;$B$56);$A$57;$B$57);$A$58;$B$58);$A$59;$B$59);$A$60;$B$60);$A$61;$B$61);$A$62;$B$62);$A$63;$B$63);$A$64;$B$64)

Заменить несколько значений на одно

С помощью функции «ПОДСТАВИТЬ»

При замене нескольких значений на одно и то же механика работы формул на основе нескольких уровней вложенности не будет отличаться от замены нескольких на несколько. Просто третий аргумент (на что заменить) на всех уровнях вложенности будет один и тот же. Кстати, если оставить его пустым (кавычки без символов между ними), то это позволит удалить определенные символы. Пример: удалить цифры из ячейки путем замены на пустоту:

=ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;"1";"");"2";"");"3";"");"4";"");"5";"");"6";"");"7";"");"8";"");"9";"");"0";"")

С помощью регулярных выражений

Важно: регулярные выражения не поставляются в Excel “из коробки”, но формулы ниже доступны бесплатно, если установить надстройку !SEMTools.

Регулярные выражения (RegEx, регулярки) — наиболее удобное решение, когда нужно заменить несколько символов на один. Все эти несколько символов обычным способом безо всяких разделителей нужно перечислить внутри квадратных скобок. Примеры формул:

=regexreplace(A1;"d";"#")
=regexreplace(A1;"w";"#")
=regexreplace(A1;"а-яА-Я";"#")
=regexreplace(A1;"s";"_")

Первая заменяет на символ “#” все цифры, вторая — все английские буквы, а третья — все кириллические символы в верхнем и нижнем регистре. Четвёртая заменяет любые пробелы, в том числе табуляцию и переносы строк, на нижнее подчеркивание.

замена регулярными выражениями
Массовая замена символов регулярными выражениями при установленной надстройке !SEMTools

Если же нужно заменять не символы, а несколько значений, состоящих в свою очередь из нескольких букв, цифр или знаков, синтаксис предполагает уже использование круглых скобок и вертикальной черты “|” в качестве разделителя.

Массовая замена в !SEMTools

Надстройка для Excel !SEMTools позволяет в пару кликов производить замены на всех уровнях:

  • символов и их сочетаний,
  • паттернов регулярных выражений,
  • слов,
  • целых ячеек (в некоторой степени аналог ВПР).
Массовая замена в Excel с !SEMTools
Меню инструментов массовой замены в !SEMTools

При этом процедуры изменяют исходный диапазон, что экономит время. Все что нужно —предварительно выделить его, определиться с задачей, вызвать нужную процедуру и выделить два столбца сопоставления заменяемых и замещающих значений (предполагается, что если вы знаете, что на что менять, то и такие списки есть).

Пример: замена символов по вхождению

Аналог обычной процедуры замены без учета регистра заменяемых символов, по вхождению. С одним отличием: здесь замена массовая и можно выбрать сколько угодно строк с парами «заменяемое-заменяющее» значение.

Ниже пример с единичными символами, но паттерны могут быть какими угодно в зависимости от вашей задачи.

Массовая замена символов по вхождению на примере Leet Language (некоторые английские буквы заменяются на похожие цифры)

Пример: замена списка слов на другой список слов

На этом примере — замена списка слов на другой список, в данном случае на одно и то же слово. Здесь решается задача типизации разнородных фраз путем замены слов, содержащих латиницу и цифры, на одно слово. Далее после этой операции можно будет посчитать уникальные значения в столбце, чтобы выявить наиболее популярные сочетания.

замена списка слов на одно и то же слово
Замена списка слов на другой список в !SEMTools

С версии !SEMTools 9.18.18 появилась опция: при замене списка слов не учитывать пунктуацию в исходных предложениях, а регистр слов теперь сохраняется.

замена списка слов на другой список в Excel

Инструменты находятся в группе макросов «ИЗМЕНИТЬ» в отдельном меню и для удобства продублированы в меню «Изменить символы», «Изменить слова» и «Изменить ячейки».

Скачивайте надстройку !SEMTools и делайте массовую замену символов, слов или целых списков в Excel!

Смотрите также по теме поиска и замены данных в Excel:

  • Найти заглавные/строчные буквы в ячейке;
  • Найти латиницу или кириллицу в тексте;
  • Найти числа в текстовых ячейках;
  • Обнаружить текстовые символы;
  • Функция НАЙТИ в Excel;
  • Функция ПОИСК в Excel;
  • Функция ЗАМЕНИТЬ в Excel;
  • Найти определенные символы в ячейках Excel.
Источник
 

Jackjumper

Пользователь

Сообщений: 15
Регистрация: 22.02.2016

Есть папка с файлами (600 файлов), в каждом из них нужно заменить текст в формуле. В VBA вообще не шарю, после долгих поисков состряпал это:

Sub Get_All_File_from_Folder()
   Dim sFolder As String, sFiles As String
   Dim wb As Workbook
   With Application.FileDialog(msoFileDialogFolderPicker)
       If .Show = False Then Exit Sub
       sFolder = .SelectedItems(1)
   End With
   sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, «», Application.PathSeparator)
       Application.ScreenUpdating = False
   sFiles = Dir(sFolder & «*.xlsx*»)
   Do While sFiles <> «»
    With Selection.Find
       .ClearFormatting
       .Text = «AF-KF ReportsRockrollsTTM[Food Cost AF-01 2022 9 Summer»
       .Replacement.ClearFormatting
       .Replacement.Text = «RockrollsTTM[Food Cost AF-01»
       .Execute Replace:=wdReplaceAll, Forward:=True, _
       Wrap:=wdFindContinue
       End With
       sFiles = Dir
   Loop
   Application.ScreenUpdating = True
End Sub

Макрос выдает ошибку Run-time error ‘450’:
Wrong number of agruments or invalid property assignment на строчке With Selection.Find (выделяет ее желтым)

Что не так?
 

evgeniygeo

Пользователь

Сообщений: 2276
Регистрация: 19.06.2018

#2

20.12.2022 07:55:31

Jackjumper,
не смотрел особо, но попробуйте так: (99% кода взято

здесь

)

Код 
Sub Get_All_File_from_Folder()
    Dim sFolder As String, sFiles As String
    Dim wb As Workbook
    'диалог запроса выбора папки с файлами
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = False Then Exit Sub
        sFolder = .SelectedItems(1)
    End With
    sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator)
    'отключаем обновление экрана, чтобы наши действия не мелькали
    Application.ScreenUpdating = False
    sFiles = Dir(sFolder & "*.xls*")
    Do While sFiles <> ""
        'открываем книгу
        Set wb = Application.Workbooks.Open(sFolder & sFiles)
        'действия с файлом
        Application.Calculation = xlCalculationManual
        Cells.Replace What:="AF-KF ReportsRockrollsTTM[Food Cost AF-01 2022 9 Summer", Replacement:= _
        "RockrollsTTM[Food Cost AF-01", LookAt:=xlPart, SearchOrder:=xlByRows, _
        MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, _
        FormulaVersion:=xlReplaceFormula2
        Application.Calculation = xlCalculationAutomatic
        'Закрываем книгу с сохранением изменений
        wb.Close True 'если поставить False - книга будет закрыта без сохранения
        sFiles = Dir
    Loop
    'возвращаем ранее отключенное обновление экрана
    Application.ScreenUpdating = True
End Sub

Изменено: evgeniygeo — 20.12.2022 07:56:18
 

Jackjumper

Пользователь

Сообщений: 15
Регистрация: 22.02.2016

#3

20.12.2022 10:26:08

Цитата
написал:
Jackjumper,
не смотрел особо, но попробуйте так: (99% кода взято  здесь )

Код 
    [URL=#]?[/URL]       1  2  3  4  5  6  7  8  9  10  11  12  13  14  15  16  17  18  19  20  21  22  23  24  25  26  27  28  29      Sub   Get_All_File_from_Folder()          Dim   sFolder   As   String  , sFiles   As   String          Dim   wb   As   Workbook          'диалог запроса выбора папки с файлами          With   Application.FileDialog(msoFileDialogFolderPicker)              If   .Show =   False   Then   Exit   Sub              sFolder = .SelectedItems(1)          End   With          sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator,   ""  , Application.PathSeparator)          'отключаем обновление экрана, чтобы наши действия не мелькали          Application.ScreenUpdating =   False          sFiles = Dir(sFolder &   "*.xls*"  )          Do   While   sFiles <>   ""              'открываем книгу              Set   wb = Application.Workbooks.Open(sFolder & sFiles)              'действия с файлом              Application.Calculation = xlCalculationManual              Cells.Replace What:=  "AF-KF ReportsRockrollsTTM[Food Cost AF-01 2022 9 Summer"  , Replacement:= _              "RockrollsTTM[Food Cost AF-01"  , LookAt:=xlPart, SearchOrder:=xlByRows, _              MatchCase:=  False  , SearchFormat:=  False  , ReplaceFormat:=  False  , _              FormulaVersion:=xlReplaceFormula2              Application.Calculation = xlCalculationAutomatic              'Закрываем книгу с сохранением изменений              wb.Close   True   'если поставить False - книга будет закрыта без сохранения              sFiles = Dir          Loop          'возвращаем ранее отключенное обновление экрана          Application.ScreenUpdating =   True    End   Sub  

 

Да, код оттуда, но то, что Вы прислали не работает, пишется ошибку:

Compile error: named argument not found, выделяет желтым первую строку, а курсором выделяет «FormulaVersion:=»
 

Jackjumper,
значит сначала проверьте просто код для замены, т.к. у меня все работает отлично

Если вручную заменяете это:
AF-KF ReportsRockrollsTTM[Food Cost AF-01 2022 9 Summer
на это:
RockrollsTTM[Food Cost AF-01
то работает?

Изменено: evgeniygeo — 20.12.2022 10:33:26
 

Jackjumper

Пользователь

Сообщений: 15
Регистрация: 22.02.2016

evgeniygeo, Да, разумеется вручную работает. Я специльно создал файл отдельный, поместил его в папку отличную от той, где лежит файл с макросом. При выполнении он должен запрашивать папку, где лежат файлы, а в этом случае мы не доходим до данного этапа.
 

Jackjumper,
значит, что-то не так делаете, но без файлов что-то подсказать сложно.

попробуйте распаковать архив и протестировать.

Прикрепленные файлы

  • общая.zip (37.11 КБ)

Изменено: evgeniygeo — 21.12.2022 06:25:37
 

Jackjumper

Пользователь

Сообщений: 15
Регистрация: 22.02.2016

#7

21.12.2022 12:36:29

evgeniygeo, та же ошибка, что в предыдущем моем сообщении :(
Источник

Массовая замена текста во всех файлах в папке и подпапке

Anis625

 Дата: Воскресенье, 07.03.2021, 14:36 |
Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 670


Репутация:
31
±

Замечаний:
0% ±


Excel 2013

Добрый день, всем участникам форума!

Снова с просьбой направить или послать (шучу) на путь истинный в познаниях VBA.
Общий сетевой диск переезжает на новый сервер. А в некоторых файлах есть линки между собой соответственно они будут на старый сетевой диск. Вот и решили сделать массовую замену пути изменив его начальную часть.
Вопрос не новый поэтому поискал в просторах интернета. Нашел на дружественных (надеюсь) сайтах (ссылки добавил в начало кода) почти подходящее решение (один код перебирает папки и подпапки, а другой — находит и заменяет текст по всей открытой книге). И их нужно было поженить между собой. В этом и затык. По отдельности работают, а как думал правильно соединил не работают, но и ошибку не выдает.
Также прикрутил код отключения обновления связей — тоже не срабатывает — выводит сообщение об обновлении.
Файлы: VBA_change (с кодами) и Test1 — условный файл который поместил в условную папку

Буду признателен за совет и сдействие
 

Ответить

Anis625

 Дата: Воскресенье, 07.03.2021, 14:46 |
Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 670


Репутация:
31
±

Замечаний:
0% ±


Excel 2013

С изменением текста разобрался: вшил код замены текста в основной код и добавил ссылку на открытую книгу wb.
Но сообщения о необходимости обновить связи выходят. Если получится допилить может кому пригодиться готовый код

К сообщению приложен файл:

9454535.xlsm
(16.9 Kb)

Сообщение отредактировал Anis625 — Воскресенье, 07.03.2021, 14:56
 

Ответить

doober

 Дата: Воскресенье, 07.03.2021, 15:03 |
Сообщение № 3

Группа: Друзья

Ранг: Ветеран

Сообщений: 913


Репутация:
317
±

Замечаний:
0% ±


Excel 2010

Желаете?
Запросто. Если так файл открыть :D [vba]

Код

  Set wb = Application.Workbooks.Open(sFolder & sFiles, UpdateLinks = xlUpdateLinksAlways)

[/vba]
 

Ответить

Anis625

 Дата: Воскресенье, 07.03.2021, 15:14 |
Сообщение № 4

Группа: Проверенные

Ранг: Ветеран

Сообщений: 670


Репутация:
31
±

Замечаний:
0% ±


Excel 2013

doober,

Нет уж :D , если бы совсем без какого-нибудь решения пришел с вопросом думаю можно было бы =)

То что нужно получилось. Учить и учить мне VBA, как вы как то правильно сказали на практике.
Спасибо Вам огромное
 

Ответить

Anis625

 Дата: Воскресенье, 07.03.2021, 15:25 |
Сообщение № 5

Группа: Проверенные

Ранг: Ветеран

Сообщений: 670


Репутация:
31
±

Замечаний:
0% ±


Excel 2013

doober,
Попробовал сделать тоже самое с кодом при переборе не только папки, но и подпапок (в модуле код) ругается на эту строку:
[vba]

Код

Set wb = Application.Workbooks.Open(sPath & objFile.Name, UpdateLinks = xlUpdateLinksAlways)

[/vba]

К сообщению приложен файл:

6057601.xlsm
(17.0 Kb)

Сообщение отредактировал Anis625 — Воскресенье, 07.03.2021, 15:25
 

Ответить

Anis625

 Дата: Воскресенье, 07.03.2021, 15:40 |
Сообщение № 6

Группа: Проверенные

Ранг: Ветеран

Сообщений: 670


Репутация:
31
±

Замечаний:
0% ±


Excel 2013

Получилось решить задачку так:
[vba]

Код

Set wb = Application.Workbooks.Open(sPath & objFile.Name, UpdateLinks:=0)

[/vba]

Сообщение отредактировал Anis625 — Воскресенье, 07.03.2021, 15:41
 

Ответить

Anis625

 Дата: Воскресенье, 07.03.2021, 15:43 |
Сообщение № 7

Группа: Проверенные

Ранг: Ветеран

Сообщений: 670


Репутация:
31
±

Замечаний:
0% ±


Excel 2013

doober,
Но сообщения «Будьте внимательный! В фале могут быть персональные данные …» остались.
Пытался вылечить так:
[vba]

Код

Application.DisplayAlerts = False
Application.EnableEvents = False

[/vba]
Не помогает
 

Ответить

Anis625

 Дата: Воскресенье, 07.03.2021, 15:45 |
Сообщение № 8

Группа: Проверенные

Ранг: Ветеран

Сообщений: 670


Репутация:
31
±

Замечаний:
0% ±


Excel 2013

Не там ставил. Все получилось сделать.
Сейчас причешу и выложу финальный файл. Может кому пригодится
 

Ответить

Anis625

 Дата: Воскресенье, 07.03.2021, 15:56 |
Сообщение № 9

Группа: Проверенные

Ранг: Ветеран

Сообщений: 670


Репутация:
31
±

Замечаний:
0% ±


Excel 2013

Финальный файл (добавил отключение/включение автоматического режима пересчета формул в начале и конце, чтобы быстрее отрабатывал код на больших размерах файлах). Спасибо большое doober,

К сообщению приложен файл:

6767917.xlsm
(20.6 Kb)

Сообщение отредактировал Anis625 — Воскресенье, 07.03.2021, 15:57
 

Ответить

doober

 Дата: Воскресенье, 07.03.2021, 16:36 |
Сообщение № 10

Группа: Друзья

Ранг: Ветеран

Сообщений: 913


Репутация:
317
±

Замечаний:
0% ±


Excel 2010

Не за что.
Я бы 0 не догадался поставить.
 

Ответить

Anis625

 Дата: Воскресенье, 07.03.2021, 17:37 |
Сообщение № 11

Группа: Проверенные

Ранг: Ветеран

Сообщений: 670


Репутация:
31
±

Замечаний:
0% ±


Excel 2013

doober,
В мануале посмотрел. Вот и Вас научил чему то новому :D
 

Ответить

Anis625

 Дата: Вторник, 09.03.2021, 11:08 |
Сообщение № 12

Группа: Проверенные

Ранг: Ветеран

Сообщений: 670


Репутация:
31
±

Замечаний:
0% ±


Excel 2013

Еще раз добрый день, всем участникам форума!
Код работает отлично, только как же без НО при тестировании на продуктиве =)
Столкнулся с такой ситуацией, что при замене пути к папке Excel автоматически пытается обновить связь и выдает #ССЫЛКА если не находит путь.
Автоматический пересчет формул пробовал отключить — не помогает.
Можно ли как то сделать чтобы замена была без обновления связи после замены?

Сообщение отредактировал Anis625 — Вторник, 09.03.2021, 11:15
 

Ответить

Anis625

 Дата: Вторник, 09.03.2021, 11:20 |
Сообщение № 13

Группа: Проверенные

Ранг: Ветеран

Сообщений: 670


Репутация:
31
±

Замечаний:
0% ±


Excel 2013

Так тоже пробовал[vba]

Код

sh.Cells.Replace «C:UsersUserDownloadsНовая папка», «C:UsersUserDownloadsНовая папка2»
            Application.AskToUpdateLinks = False

[/vba] не помогает
 

Ответить

Anis625

 Дата: Вторник, 09.03.2021, 14:07 |
Сообщение № 14

Группа: Проверенные

Ранг: Ветеран

Сообщений: 670


Репутация:
31
±

Замечаний:
0% ±


Excel 2013

Как вариант если это кодом можно прописать при выводе такого окна — не заменять на новое значение. Но это не знаю как сделать =(
 

Ответить

Anis625

 Дата: Среда, 10.03.2021, 06:28 |
Сообщение № 15

Группа: Проверенные

Ранг: Ветеран

Сообщений: 670


Репутация:
31
±

Замечаний:
0% ±


Excel 2013

Все в интернете перерыл, чтобы хоть за что то зацепиться. В 2015 году на этом форуме тоже поднимали этот вопрос- без решения он остался. Неужели не решаемая задачка.
 

Ответить

Pelena

 Дата: Среда, 10.03.2021, 09:40 |
Сообщение № 16

Группа: Админы

Ранг: Местный житель

Сообщений: 18797


Репутация:
4284
±

Замечаний:
±


Excel 2016 & Mac Excel

что имеется в виду: нет такой папки или нет в ней такого файла?
Если нет папки, то её просто можно создать до цикла по листам.
[vba]

Код

             On Error Resume Next
            MkDir «C:UsersUserDownloadsНовая папка2»

[/vba]
Если нет файла, то ошибка #ССЫЛКА! исчезнет, как только Вы положите в эту папку нужный файл.

«Черт возьми, Холмс! Но как??!!»
Ю-money 41001765434816

 

Ответить

Anis625

 Дата: Среда, 10.03.2021, 10:39 |
Сообщение № 17

Группа: Проверенные

Ранг: Ветеран

Сообщений: 670


Репутация:
31
±

Замечаний:
0% ±


Excel 2013

Pelena,
Файлы могут содержать ссылку на файл который был перемещен (это исключение, но такие увы есть). При замене у них ссылки выходит #ССЫЛКА. По ним не нужно менять ссылку. В идеале было бы если макрос просто меняет путь в формуле без обновления. Я думал это так работает. А оказывается он сразу пытается обновить связь.
Возвращать на место файл тоже вряд ли кто будет. Их сотни (среди тысяч)

Сообщение отредактировал Anis625 — Среда, 10.03.2021, 10:40
 

Ответить

Pelena

 Дата: Среда, 10.03.2021, 10:52 |
Сообщение № 18

Группа: Админы

Ранг: Местный житель

Сообщений: 18797


Репутация:
4284
±

Замечаний:
±


Excel 2016 & Mac Excel

могут содержать ссылку на файл который был перемещен

но тогда ведь искомый фрагмент (что меняем) будет уже другим и не попадёт под замену. Или я что-то не так понимаю.
Я к тому, что ошибка #ССЫЛКА! может уже была до выполнения макроса

«Черт возьми, Холмс! Но как??!!»
Ю-money 41001765434816

 

Ответить

Anis625

 Дата: Среда, 10.03.2021, 14:28 |
Сообщение № 19

Группа: Проверенные

Ранг: Ветеран

Сообщений: 670


Репутация:
31
±

Замечаний:
0% ±


Excel 2013

Я к тому, что ошибка #ССЫЛКА! может уже была до выполнения макроса

Она может появиться если обновить связи. Но на входе обновление связей отключено и обновляются в ручную. Если бы связей было бы 100 можно и в ручную, а их несколько тысяч. И после замены пути в файлах хотелось чтобы ссылки по прежнему не обновлялись, а только в ручном режиме пользователем. Но до этого массово меняем по всем файлам Excel связи на новый сетевой диск.
 

Ответить
Источник

Массовый поиск и замена в документах MS Office (Word и Excel)

Имеется большое количество документов Word или Excel и в каждом документе нужно
изменить несколько фраз. В каждом документе через замену (Найти и заменить ) это слишком долго.

Решение:

  1. Вариант с использованием макроса

    2. a) для Microsoft Excel:
    Скопировать макрос в папку с файлами, запустить макрос, задать условия замены, заключая их в кавычки.
    выбрать любой файл из папки.

    Программа пройдётся по всем листам всех книг (*.xls;*.xlsx) в этой папке,
    и поменяет текст в заданной графе. Недостатком способа очевиден –
    замена производится только в указанной графе.
    Скачать макрос можно по ссылке

    б) для Microsoft Word:
    Создать новый документ Word, открыть редактор Microsoft VBA, добавить
    новый модуль, скопировать текст процедуры ниже. О том как создать макрос более подробно написано
    здесь.
    При выполнении макроса нужно выбрать файлы, данные в которых подлежат замене:

    Что изменить и на что изменить прописывается в теле макроса:
    что_заменить = «123»
    чем_заменить = «1234»

    Сам макрос:

  2. В виде приложения

Для документов Word подойдет @Text Replacer — бecплaтнaя пpoгpaммa для быcтpoгo пoиcкa и зaмeны
тeкcтa в фaйлax из выбpaннoй пaпки и влoжeнныx пoдпaпoк.
Работает с дoкумeнтaми тeкcтoвoгo peдaктopa Word: *.doc, *.docx, *.rtf, фaйлaми тeкcтoвoгo фopмaтa:
*.txt, *.ini, *.html, *.php и дp., paбoтa c кoтopыми вoзмoжнa чepeз cтaндapтный Блoкнoт Windows.
Вce фaйлы дpугиx типoв oбpaбaтывaютcя пpoгpaммoй кaк тeкcтoвыe.

Пpoгpaммoй пoддepживaeтcя пoиcк и зaмeнa мнoгocтpoчныx фpaгмeнтoв тeкcтa c учeтoм peгиcтpa и
игнopиpуeмыx cимвoлoв — тaкиx кaк пpoбeлы и пepeвoды cтpoки (windows / *nix).
Программа бесплатная, скачать можно по
ссылке
с официального сайта программы

Не пробуйте @Text Replacer для документов Excel – программа их портит!

Для документов Excel попробуйте FireBall.exe – небольшую программу, не требующую установки.
Файлы Excel необходимо скопировать в папку с FireBall.exe.

В ходе работы программа создает новые файлы, добавляя к названию приставку new.
Скачать программу можно по
ссылке

Яндекс.Метрика

Источник

Like this post? Please share to your friends:
  • Замена текста в таблице excel
  • Замена текста в нескольких файлах word одновременно
  • Замена текста в колонтитулах word макрос
  • Замена текста в колонтитулах word vba
  • Замена текста в word с использованием