sum - 带变量的求和公式，将小计公式放在每页的小计单元格中

Question

'我已经为我的有关费率表的工作完成了以下步骤：'（1）搜索小计行号并保存在数组中'（2）将小计公式放入每页的小计单元格

'步骤 1 ok 但步骤 2 有如下问题：

' Putting Subtotal formula to cells (HAVE PROBLEM TO INSERT FORMULA)
Dim a As Integer, b As Integer
a = 1
b = 1
a = numbers(j)
b = numbers(j - 1)

' Will set a loop to do the Sum function with different array no.    
   Range("F" & a).Formula = "=Sum(F" & a & ":F " & b & ")"*

标签： sumformula