Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Замена значений с протяжкой по всем ячейкам. - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Замена значений с протяжкой по всем ячейкам. (Макросы/Sub)
Замена значений с протяжкой по всем ячейкам.
вадим0101 Дата: Среда, 30.10.2019, 13:16 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
Добрый день.
Есть макрос с поиском и заменой значения, но проблема в том что он берет значение только с ячейки J15 а надо чтобы брал с протяжкой. Тоесть Q15 с заменой J15, Q16 с заменой J16, Q17 с заменой J17, и так далее

lr = Cells(Rows.Count, "Q").End(xlUp).Row
Range("Q15").Select
ActiveCell.Replace What:="(0)", replacement:=[J15], LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("Q15").AutoFill Destination:=Range("Q15:Q" & lr)
 
Ответить
СообщениеДобрый день.
Есть макрос с поиском и заменой значения, но проблема в том что он берет значение только с ячейки J15 а надо чтобы брал с протяжкой. Тоесть Q15 с заменой J15, Q16 с заменой J16, Q17 с заменой J17, и так далее

lr = Cells(Rows.Count, "Q").End(xlUp).Row
Range("Q15").Select
ActiveCell.Replace What:="(0)", replacement:=[J15], LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("Q15").AutoFill Destination:=Range("Q15:Q" & lr)

Автор - вадим0101
Дата добавления - 30.10.2019 в 13:16
китин Дата: Среда, 30.10.2019, 13:52 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 5927
Репутация: 920 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
вадим0101, - Прочитайте Правила форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)
- Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 100кб согласно п.3 Правил форума


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщениевадим0101, - Прочитайте Правила форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)
- Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 100кб согласно п.3 Правил форума

Автор - китин
Дата добавления - 30.10.2019 в 13:52
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Замена значений с протяжкой по всем ячейкам. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!