填写公式，直到列

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

请注意，公式地址针对每一行进行调整。