动态范围公式

Question

我有一些数据是我从另一个工作簿中提取的，我想在数据末尾对该列进行求和。问题是我想要最后一个单元格中的总和公式，而不仅仅是值，这样如果用户在提取数据后更改数据，它将自动更新。数据从第8行开始，长度会有所不同，所以这是我到目前为止所做的：

  ActiveCell.Range("a1").End(xlDown).Select
  LastRow = Activecell.Row
  ActiveCell.Offset(2,0).Range("a1").Select
  ActiveCell.FormulaR1C1 = "=sum(R[-LastRow + 6]C:R[-2]C)"

这会返回错误，因为我猜你不能在这种语法中使用变量。我该怎么办？

Answer 1

假设您的其余代码正确无误，请将最后一行更改为：

ActiveCell.FormulaR1C1 = "=sum(R[-" & Cstr(LastRow+6) & "]C:R[-2]C)"