将公式复制到最后一行

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)