Макрос Excel на поиск и замену слов в таблице.

ukk-kz · 27 май 2014, 08:40

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

pashulka · 27 май 2014, 12:48

Если оставить в покое "Склад 100" и его замену на "Склад ver..."

то, насколько можно судить по остальной части скриншота, Вам нужно просто использовать стандартную функцию рабочего листа =ПРОПНАЧ()

Если же эту задачу нужно автоматизировать, то выделите диапазон смежных ячеек и выполните нижеопубликованный макрос :

Код: Выделить всё

Private Sub Test()
    Selection = Application.Proper(Selection)
End Sub

ukk-kz · 27 май 2014, 13:16

Спасибо большое! Но мне надо чтобы именно слово заменял, например написано в столбце 20 позиций "СТИР.МАШ.ФРОНТ" чтобы менялось на "Фронтальные" к примеру.

pashulka · 27 май 2014, 13:39

В таком случае, где-то должна быть "таблица замен", где будет указано, что "СТИР.МАШ.ФРОНТ" должна меняться на "Фронтальные".

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

ukk-kz · 05 июн 2014, 13:30

pashulka писал(а):В таком случае, где-то должна быть "таблица замен", где будет указано, что "СТИР.МАШ.ФРОНТ" должна меняться на "Фронтальные".

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

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

pashulka · 05 июн 2014, 13:52

Выкладывайте таблицу замен в архиве (.zip, .rar), а в листе, где необходимо менять данные, достаточно оставить несколько строк, чтобы была понятна структура.

ukk-kz · 05 июн 2014, 15:08

pashulka писал(а):Выкладывайте таблицу замен в архиве (.zip, .rar), а в листе, где необходимо менять данные, достаточно оставить несколько строк, чтобы была понятна структура.

Вроде получилось, вложил архив.

pashulka · 05 июн 2014, 16:21

Попробуйте так, разумеется, указав своё месторасположение файла, имя книги и листа.

ukk-kz · 06 июн 2014, 07:42

pashulka писал(а):Попробуйте так, разумеется, указав своё месторасположение файла, имя книги и листа.

Жму "Заменить текст" открывает прайс-лист но ничего не происходит, все слова остаются так же.

pashulka · 06 июн 2014, 14:32

Не все. Просто в Вашей 'таблице замен' так мало слов, что Вы их просто не замечаете.

Если же речь идёт о том, что макрос должен менять ещё и регистр, то смотрите второй вариант.