Как произвести массовую замену ("найти - заменить") Листа1 согласно таблице на Листе2? / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

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

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как произвести массовую замену ("найти - заменить") Листа1 согласно таблице на Листе2?

6 сообщений из 6, страница 1 из 1

Как произвести массовую замену ("найти - заменить") Листа1 согласно таблице на Листе2?

#38597775

Анастасия_2014

Гость

Всем - добрый день!
Такая ситуация - файл Excel, два листа, на втором находится таблица сокращений. Как сделать массовую автоматическую замену словосочетаний на аббревиатуры из таблицы-справочника? Т.е. не руками по-одному: Найти -> «пара слов» -> Заменить ->»ПаР»… А пробежаться бы автоматом по таблице-справочнику (колонка_1) и заменить всё аббревиатуры (колонка_2).

...

Рейтинг:

0 / 0

27.03.2014, 10:50

| Ответить | Цитировать | Написать

Как произвести массовую замену ("найти - заменить") Листа1 согласно таблице на Листе2?

#38597802

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

нам самим разработать формат справочника или дадите образец имеющегося?

...

Рейтинг:

0 / 0

27.03.2014, 11:04

| Ответить | Цитировать | Написать

Как произвести массовую замену ("найти - заменить") Листа1 согласно таблице на Листе2?

#38597814

гр к

Гость

Анастасия_2014Всем - добрый день!
Такая ситуация - файл Excel, два листа, на втором находится таблица сокращений. Как сделать массовую автоматическую замену словосочетаний на аббревиатуры из таблицы-справочника? Т.е. не руками по-одному: Найти -> «пара слов» -> Заменить ->»ПаР»… А пробежаться бы автоматом по таблице-справочнику (колонка_1) и заменить всё аббревиатуры (колонка_2).
Запиши макрос по единичной замене, а потом пробегись циклом по таблице-справочнику, и по каждой строке запускай записанный ранее макрос, подставляя соотв значения ключ-значение.

...

Рейтинг:

0 / 0

27.03.2014, 11:11

| Ответить | Цитировать | Написать

Как произвести массовую замену ("найти - заменить") Листа1 согласно таблице на Листе2?

#38597842

Анастасия_2014

Гость

Ну вот такой файлик для примера

...

Рейтинг:

0 / 0

27.03.2014, 11:26

| Ответить | Цитировать | Написать

Как произвести массовую замену ("найти - заменить") Листа1 согласно таблице на Листе2?

#38597852

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

Dim i As Long, str As String, repl As String
i = 1
Do
  str = Worksheets("Лист2").Cells(i, 1)
  repl = Worksheets("Лист2").Cells(i, 2)
  If str = "" Or repl = "" Then Exit Do
  Worksheets("Лист1").Cells.Replace What:=str, Replacement:=repl, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
  i = i + 1
Loop

...

Рейтинг:

0 / 0

27.03.2014, 11:33

| Ответить | Цитировать | Написать

Как произвести массовую замену ("найти - заменить") Листа1 согласно таблице на Листе2?

#38598448

Анастасия_2014

Гость

Shocker.Pro, спасибо Вам огромное!

...

Рейтинг:

0 / 0

27.03.2014, 19:22

| Ответить | Цитировать | Написать

6 сообщений из 6, страница 1 из 1

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&msg=38597814&tid=2174155]:	0ms
get settings:	8ms
get forum list:	11ms
check forum access:	3ms
check topic access:	3ms
track hit:	49ms
get topic data:	11ms
get forum data:	2ms
get page messages:	46ms
get tp. blocked users:	1ms
others:	11ms

total:	145ms