自動填充公式直到最后一行

Question

IF(ISBLANK(B5),"",IF(ISBLANK(O5)=TRUE,"Missing PSD",TODAY()-O5))

這是我的公式，用於計算 O 列中的日期與當前日期之間的差異。 我用值填充的第一個行是 5。正在執行公式計算的行是 AC。 我想自動計算這個直到最后填充的行，並且行值也應該像向下拖動時一樣遞增。

我不擅長 VBA，因此非常感謝任何幫助。

Answer 1

請嘗試下一個代碼：

Sub testFilFormulaDown()
 Dim sh As Worksheet, lastRow As Long
 
 Set sh = ActiveSheet 'use here the necessary sheet
 lastRow = sh.Range("O" & rows.count).End(xlUp).row 'chosen O:O column, being involved in the formula...
 sh.Range("AC5:AC" & lastRow).Formula = "=IF(ISBLANK(B5),"""",IF(ISBLANK(O5)=TRUE,""Missing PSD"",TODAY()-O5))"
End Sub

為了正確計算最后一行，您必須選擇一個完全填充的列（A:A、C:C 等）。 我在公式中使用了一個，但是由於檢查了空白單元格，所以列 O:O 可能不是最合適的...