Заполните формулу до последней строки в столбце

Question

У меня есть формула (I2-J2) в ячейке K2, и я хочу, чтобы Excel скопировал ее до последней строки моего набора данных. Итак, возьмите формулу в K2 и скопируйте ее в K3, K4, K5 и так далее. Какая строка является последней, динамически меняется каждый месяц в зависимости от набора данных, поэтому я не могу использовать фиксированные значения.

Я уже пробовал другое решение в аналогичном потоке: Заполните формулу до последней строки в столбце , но это, к сожалению, не сработало.

Sub Autofill()
Dim LastRow As Long
LastRow = Range("K" & Rows.Count).End(xlUp).Row
Range("K2:K" & LastRow).Formula = I2 - J2
End Sub

Макрос уже останавливается в ячейке K2, которая не является концом моего набора данных, и даже формула выдает неправильный результат 0 вместо значения в I2 минус значение в J2

Что я сделал не так?

Большое спасибо!

Answer 1

Это должно быть то, что вам нужно:

Sub AutoPhill()
    Dim N As Long
    N = Cells(Rows.Count, "J").End(xlUp).Row
    Range("K2:K" & N).Formula = "=I2-J2"
End Sub

Обратите внимание на изменение адресов формулы для каждой строки.