如何在VBA中自动填充动态列？

Question

我有一列K带有一堆日期，我希望得到K日期和今天日期插入O列之间的天数。

第一行的代码是：

 Range("O2").Value = Date - Range("K2").Value

如何为列的其余部分重复此代码？另外，请记住，K列中填充单元格的长度是动态的，并且总是在变化。

感谢所有可以提前帮助的事情！

Answer 1

之前：

Sub Main()
    Dim i As Long
    For i = 1 To Range("K" & Rows.Count).End(xlUp).Row
        Range("O" & i) = DateDiff("d", Now, Range("K" & i))
    Next i
End Sub

后：

Answer 2

Range("O2").AutoFill Range("O2:O" & Cells(Rows.Count, "K").End(xlUp).Row)

即如果你已将公式放在单元格O2中。