Excel VBA Макросы: Протягивание формулы до последней заполненной строчки.

Автор samobar48, 24 июля 2018, 10:23

samobar48

На листе всегда динамическое количество строк.
Мне необходимо протянуть формулу до последней заполненной строчки.
При записи макрокодером макрос записывает статическое количество строк.
Как сделать так, чтобы протяжка формулы происходила до последней строчки с данными?

Пример макроса
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
[свернуть]