Страницы: 1
RSS
Протянуть формулу с помощью Макроса
 
Доброго времени суток уважаемые форумчане
Подскажите пожалуйста, мне нужно  с помощью макроса, на Листе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.03.2018 00:25:03
 
terobyte1, код следует оформлять соответствующим тегом. Ищите такую кнопку <...> и исправьте своё сообщение.
И не нужно писать через 1-2-3 строки.
 
Юрий М, Прошу прощения, код оформил
 
Код
   Selection.AutoFill Destination:=Range("A1", Range(Sheets("Лист1").Range("A1").End(xlDown).Offset(-1).Address)), Type:=xlFillDefault
 
RAN, Большое спасибо, всё получилось  ;)  
Страницы: 1
Наверх