VBA中的相对参考小计公式

Question

我正在尝试制作一个每隔几列都有小计的表。 我的vba代码将另一张工作表中的数据带入并排序到各个部分中，现在我正尝试编写代码以放入小计公式。这就是我所拥有的：

Sub Macro21()
Dim FI(1 To 3) As Variant
FI(1) = "Fixed Income"
FI(2) = 10
FI(3) = 21

Sheets("Sheet1").Cells(FI(2), 3).FormulaR1C1 = "=SUBTOTAL(9,R[1]C:R[FI(3)-FI(2)]C)"

End Sub

FI（2）和FI（3）是此部分的开始和结束行。 我在宏的其他部分中使用它们，并且随着新项目放在类别下，它们也会更新。

当我运行它时，给我一个错误。 有任何想法吗？

Answer 1

我认为您需要将公式构建为字符串，而不是使其引用您的Variant数组。 怎么样：

Sheets("Sheet1").Cells(FI(2), 3).FormulaR1C1 = _
     "=SUBTOTAL(9,R[1]C:R[" _
   & CStr(FI(3)-FI(2)) _
   & "]C)"

假设结果字符串是您想要计算的...