На листе всегда динамическое количество строк.
Мне необходимо протянуть формулу до последней заполненной строчки.
При записи макрокодером макрос записывает статическое количество строк.
Как сделать так, чтобы протяжка формулы происходила до последней строчки с данными?
Пример макроса
Attribute VB_Name = "Module10"
Sub Вопрос()
Attribute Вопрос.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Вопрос Макрос
'
'
Range("E2").Select
ActiveCell.FormulaR1C1 = "Точность"
Range("E3").Select
ActiveCell.FormulaR1C1 = "=1-RC[-2]/RC[-1]"
Range("E3").Select
Selection.AutoFill Destination:=Range("E3:E9")
Range("E3:E9").Select
End Sub
[вложение удалено администратором]
Макрос
Sub Макрос()
Dim lr As Long
' Поиск последней строки по столбцу A.
' End не ищет в скрытых строках.
' Это действие аналогично тому, как вы переходите в самый низ листа (т.е. на строку 1 млн),
' а затем нажимаете сочетание клавиш 'Ctrl + стрелка вверх'.
lr = Cells(Rows.Count, "A").End(xlUp).Row
Range("E2").FormulaR1C1 = "Точность"
Range("E3").FormulaR1C1 = "=1-RC[-2]/RC[-1]"
Range("E3").AutoFill Destination:=Range("E3:E" & lr)
End Sub