将公式填入列中最后一行

Question

我在单元格K2中有一个公式(I2-J2)，我想让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单元格，而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

注意公式中的地址是根据每一行的情况来调整的。