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

Question

我的 K 列有一堆日期，我想在 O 列中插入 K 的日期和今天的日期之间的天数。

我的第一行代码是：

 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 中已有公式。