Замена значений с протяжкой по всем ячейкам.

Вход

Регистрация

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

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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Замена значений с протяжкой по всем ячейкам. (Макросы/Sub)

Замена значений с протяжкой по всем ячейкам.

вадим0101

Дата: Среда, 30.10.2019, 13:16 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 10

Репутация: 0 ±

Замечаний: 0% ±

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)

Ответить

китин

Дата: Среда, 30.10.2019, 13:52 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

Репутация: 1078 ±

Замечаний: 0% ±

Excel 2007;2010;2016

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

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Замена значений с протяжкой по всем ячейкам. (Макросы/Sub)

Страница 1 из 1
1