Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как произвести массовую замену ("найти - заменить") Листа1 согласно таблице на Листе2? / 6 сообщений из 6, страница 1 из 1
27.03.2014, 10:50
    #38597775
Анастасия_2014
Анастасия_2014
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как произвести массовую замену ("найти - заменить") Листа1 согласно таблице на Листе2?
Всем - добрый день!
Такая ситуация - файл Excel, два листа, на втором находится таблица сокращений. Как сделать массовую автоматическую замену словосочетаний на аббревиатуры из таблицы-справочника? Т.е. не руками по-одному: Найти -> «пара слов» -> Заменить ->»ПаР»… А пробежаться бы автоматом по таблице-справочнику (колонка_1) и заменить всё аббревиатуры (колонка_2).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.03.2014, 11:04
    #38597802
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как произвести массовую замену ("найти - заменить") Листа1 согласно таблице на Листе2?
нам самим разработать формат справочника или дадите образец имеющегося?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.03.2014, 11:11
    #38597814
гр к
гр к
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как произвести массовую замену ("найти - заменить") Листа1 согласно таблице на Листе2?
Анастасия_2014Всем - добрый день!
Такая ситуация - файл Excel, два листа, на втором находится таблица сокращений. Как сделать массовую автоматическую замену словосочетаний на аббревиатуры из таблицы-справочника? Т.е. не руками по-одному: Найти -> «пара слов» -> Заменить ->»ПаР»… А пробежаться бы автоматом по таблице-справочнику (колонка_1) и заменить всё аббревиатуры (колонка_2).
Запиши макрос по единичной замене, а потом пробегись циклом по таблице-справочнику, и по каждой строке запускай записанный ранее макрос, подставляя соотв значения ключ-значение.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.03.2014, 11:26
    #38597842
Анастасия_2014
Анастасия_2014
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как произвести массовую замену ("найти - заменить") Листа1 согласно таблице на Листе2?
Ну вот такой файлик для примера
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.03.2014, 11:33
    #38597852
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как произвести массовую замену ("найти - заменить") Листа1 согласно таблице на Листе2?
Код: 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, 19:22
    #38598448
Анастасия_2014
Анастасия_2014
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как произвести массовую замену ("найти - заменить") Листа1 согласно таблице на Листе2?
Shocker.Pro, спасибо Вам огромное!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как произвести массовую замену ("найти - заменить") Листа1 согласно таблице на Листе2? / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 152ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2174155]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 54ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 42ms
get tp. blocked users:
 2ms
others: 12ms
total:  152ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]