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

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

我需要像上面所说的那样做这件事，因为如果我然后改变工作表本身上的任何信息，它就会自动地使用updat。

Answer 1

您可以使用：

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