VBA - 运行动态范围内的总和不断消失

Question

所以我在表格中有4列价值，收入，支出，AIncome和AExpenditure。

我正试图在最后一栏Total中获得一个总计。这是我到目前为止的公式，它有效：

=SUM(INDEX([Income],1):[@Income],  INDEX([Expenditure],1):[@Expenditure], INDEX([AIncome],1):[@AIncome], INDEX([AExpenditure],1):[@AExpenditure])

我的问题是，每当我在Excel中重新加载表时，我都不知道如何在总计列中保留总和。行数可以从1到几百不等。

有人有任何建议吗？

由于

表格的图像。这只是每列中值的一部分。 J，K，L，M是收入，支出，AIncome和AExpenditure。 N是总列数。在我手动输入公式之前，它通常是空白的。

表格部分的屏幕截图

我可以重新加载此表以从我正在使用的查询中获取不同的值，但这并不重要。问题是当我再次获取查询时，有一个新表，总是相同数量的列，但不是相同的行数。然后我需要在总列中再次手动输入我的公式

Answer 1

我会将公式存储在变量中，并在加载查询后，将公式复制到rnning total列中的行。

类似的东西：

Const StoredFormula as string = "your formula"
Worksheets(x).range("range of the query table").formula = StoredFormula