ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как произвести массовую замену ("найти - заменить") Листа1 согласно таблице на Листе2?
6 сообщений из 6, страница 1 из 1
Как произвести массовую замену ("найти - заменить") Листа1 согласно таблице на Листе2?
    #38597775
Анастасия_2014
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анастасия_2014
Гость
Всем - добрый день!
Такая ситуация - файл Excel, два листа, на втором находится таблица сокращений. Как сделать массовую автоматическую замену словосочетаний на аббревиатуры из таблицы-справочника? Т.е. не руками по-одному: Найти -> «пара слов» -> Заменить ->»ПаР»… А пробежаться бы автоматом по таблице-справочнику (колонка_1) и заменить всё аббревиатуры (колонка_2).
...
Рейтинг: 0 / 0
27.03.2014, 10:50
| Ответить | Цитировать | Написать  
Как произвести массовую замену ("найти - заменить") Листа1 согласно таблице на Листе2?
    #38597802
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
нам самим разработать формат справочника или дадите образец имеющегося?
...
Рейтинг: 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
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анастасия_2014
Гость
Ну вот такой файлик для примера
...
Рейтинг: 0 / 0
27.03.2014, 11:26
| Ответить | Цитировать | Написать  
Как произвести массовую замену ("найти - заменить") Листа1 согласно таблице на Листе2?
    #38597852
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: 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
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анастасия_2014
Гость
Shocker.Pro, спасибо Вам огромное!
...
Рейтинг: 0 / 0
27.03.2014, 19:22
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как произвести массовую замену ("найти - заменить") Листа1 согласно таблице на Листе2?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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