формула заголовка Excel с VBA

Question

Я использую следующую подпроцедуру для заполнения некоторых ячеек, начиная с ячейки AS9, но каким-то образом эта подпроцедура также изменяет заголовок из AS8.Я не хочу изменять заголовок при запуске подпроцедуры

Sub actualizareformule()

    Dim Lastrow As Long

    Application.ScreenUpdating = False

    Lastrow = Range("L" & Rows.Count).End(xlUp).Row
    Range("AS9:AS" & Lastrow).Formula = _
        "=IFERROR(RC[-2]/RC[-1],""0%"")"   

    ActiveSheet.AutoFilterMode = False
    Application.ScreenUpdating = True

End Sub

Answer 1

Вы должны добавить один к последней строке.Таким образом, вы добавите формулу, начиная со следующей строки (ниже).Попробуйте это:

Sub actualizareformule()

Dim Lastrow As Long

Application.ScreenUpdating = False

'Find last row and add one
Lastrow = Range("L" & Rows.Count).End(xlUp).Row + 1

Range("AS9:AS" & Lastrow -1).Formula = "=IFERROR(RC[-2]/RC[-1],""0%"")"

ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = True

End Sub