將公式復制到最后一行

Question

我有一個從報告工具運行的 Excel 工作簿。

在工作表“數據”的單元格 I2、J2、K2、L2 和 M2 中，我有一個公式。

我正在尋找一個 VBA 腳本，它將這些單元格中的公式拖到最后一行可能所在的位置。 Col A 可用於確定最后一行編號。

我一直在尋找一個有效的腳本，但我很難找到一個。 請有人幫我解決這個問題。 下面是位於這 5 個單元格中的靜態公式的屏幕截圖。

Range("I2:I" & LastRow).Formula = "=IF(L2=1,IF(F2-E2>0,E2,IF(F2-E2<=0,F2,0)),IF(F2-E2>0,E2,IF(F2-E2<=0,F2-I1,0)))"

Answer 1

假設您的公式有效，請嘗試：

Lastrow = Range("H" & Rows.Count).End(xlUp).Row
Range("I2") = "=IF(L2=1,IF(F2-E2>0,E2,IF(F2-E2<=0,F2,0)),IF(F2-E2>0,E2,IF(F2-E2<=0,F2-I1,0)))"
Range("I2:I" & LastRow).FillDown

Answer 2

將公式輸入 I2 ：

Range("I2").Formula = "=IF(L2=1,IF(F2-E2>0,E2,IF(F2-E2<=0,F2,0)),IF(F2-E2>0,E2,IF(F2-E2<=0,F2-I1,0)))"

然后使用單獨的行自動填充到最后一行

Range("I2").AutoFill Range("I2:I" & LastRow)

所以像這樣：

    Range("I2").Formula = "=IF(L2=1,IF(F2-E2>0,E2,IF(F2-E2<=0,F2,0)),IF(F2-E2>0,E2,IF(F2-E2<=0,F2-I1,0)))"
    Range("I2").AutoFill Range("I2:I" & LastRow)