将公式应用于列中的最后一个单元格

Question

我知道之前已经问过这个问题，但这个问题略有不同，我想搜索一列，以获取该列中的最后一个单元格中包含数据（我可以这样做）但我想应用一个公式来右边四列的单元格。我知道我可以通过执行以下操作向单元格引入公式：

Dim formul As Variant
formul -"=B25 * H25"

ActiveSheet.Range("E" & Rows.Count).End(xlUp).Offset(, 4).Resize(1).Value = formula

但这是我的问题开始的地方，我想做下面这样的事情，而不是设置公式，因为当更多信息被添加到工作表时，单元格的乘法将一直在变化。

formul -"=ActiveSheet.Range("E" & Rows.Count).End(xlUp).Offset(, 3).Value *      
ActiveSheet.Range("E" & Rows.Count).End(xlUp).Offset(, -3).Value"

ActiveSheet.Range("E" & Rows.Count).End(xlUp).Offset(, 4).Resize(1).Value = formul

我需要按照上述方式进行操作，因为如果我随后更改工作表本身的任何信息，它将自动更新。

Answer 1

您可以使用：

ActiveSheet.Range("E" & Rows.Count).End(xlUp).Offset(, 4).formular1c1 = "=RC2*RC8"