向下填写公式，直到列中的最后一行
向下填写公式，直到列中的最后一行
提问于 2020-05-29 00:37:49
我在单元格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中的值
我在这里做错了什么？
非常感谢！
回答 1
Stack Overflow用户
回答已采纳
发布于 2020-05-29 00:45:11
这应该是您需要的：
Sub AutoPhill()
Dim N As Long
N = Cells(Rows.Count, "J").End(xlUp).Row
Range("K2:K" & N).Formula = "=I2-J2"
End Sub请注意，公式地址为每行进行了调整。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/62069944
复制相关文章
相似问题
腾讯云开发者
