如何在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已經公式。