填写公式直到列中的最后一行

Question

我在单元格 K2 中有一个公式 (I2-J2)，我希望 Excel 将其复制到我的数据集的最后一行。于是将K2中的公式复制到K3、K4、K5等。哪一行是最后一行，每个月都会根据数据集动态变化，所以我不能使用固定值。

我已经在类似的线程中尝试了其他解决方案：Fill formula down till last row in column 但不幸的是，那没有用。

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

注意每行的公式地址调整。

Fill down formula till last row in column