Доброго времени суток уважаемые форумчане Подскажите пожалуйста, мне нужно с помощью макроса, на Листе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 что хотелось бы получить)