Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Найти и заменить с помощью макроса, Поиск слова на одном листе и его замена из вариантов на втором листе
 
#1
18.10.2013 03:16:18
Добрый день. Помогите, пожалуйста, с макросом.
Нужно чтобы макрос искал слово в одном столбце (на листе «Основной») и менял его согласно вариантам замен со второго листа.

Спасибо
 
 
 
#2
18.10.2013 09:12:14
Код
Sub Макрос1()
Dim i As Integer
For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
Dim R As Range, FR As Range
   Set R = Sheets("Замены").Range("A1:A1000")
   Set FR = R.Find(Cells(i, 2))
   If Not FR Is Nothing Then
   Cells(i, 2) = FR.Offset(0, 1).Value
   End If
Next i
End Sub
 
 
 
#3
22.10.2013 03:02:38
Спасибо, это именно то что нужно!
 
 
 
#4
22.10.2013 03:46:00
Вот ещё вариант, где список замен вынесен в надстройку:
http://excelvba.ru/programmes/Replacements
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#5
16.04.2020 13:19:39
Цитата
V написал:
V
Добрый день,
А как можно прописать, чтобы он заменял именно в определённом листе? а не в активной
 
 
 
#6
17.04.2020 22:13:06
Бекбол Косбаев  Попробуйте так.
Код
Sub Макрос1()
Dim i As Integer
For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
Dim R As Range, FR As Range
   Set R = Sheets("Замены").Range("A1:A1000")
   Set FR = R.Find(Sheets("Лист1").Cells(i, 2))
   If Not FR Is Nothing Then
   Sheets("Лист1").Cells(i, 2) = FR.Offset(0, 1).Value
   End If
Next i
End Sub
Изменено: Владимир S - 17.04.2020 22:16:35
 
 
 
#7
23.05.2020 16:53:32
Здравствуйте.
Прошу подмоги. Надо чтоб макрос нашел слово с листа 'Титульник' в ячейке "Текущее значение" во всех листах 'Адрес' и заменил его  в них на слово в ячейке "Новое значение".
Не умею все листы в макрос запихнуть и обмануть VBA, который не хочет менять значения в ячейках, к которым применены формулы.
Будьте добры.
 
 
 
Страницы: 1
Читают тему
Наверх