Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Протянуть формулу с помощью Макроса
 
Доброго времени суток уважаемые форумчане
Подскажите пожалуйста, мне нужно  с помощью макроса, на Листе2 растянуть формулу согласно количеству заполненных строк на Листе1
В данном случае строк 27, но в дальнейшем кол-во строк будет меняться как в большую так и меньшую сторону

У меня получилось записать следующий макрос, но он протягивает формулу на все строки
Код
Sub Макрос1()
'
' Макрос1 Макрос
'
' Сочетание клавиш: Ctrl+e
'
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "=""NQ ""&Лист1!R[1]C"
    Range("A1").Select
    Selection.AutoFill Destination:=Range("A1", ActiveSheet.Range("A1").End(xlDown)), Type:=xlFillDefault
End Sub
Подскажите как правильно это сделать (Office 2016)
Файл с примером прикрепил (Лист1 начальный вариант, Лист2 что хотелось бы получить)

Спасибо.
Изменено: terobyte1 - 20 Мар 2018 00:25:03
Страницы: 1
Наверх