请教各位如何实现：当前单元格公式 = 当前单元格公式 + a(i) （变量）

在excle中我要实现引用当前单元格公式

    Dim yjs(50)
    
    Dim yjscount As Integer
    Dim i 

  i = 0
  yjs(1 ) = 10
  yjs( 2 ) = 20
  yjscount  = 2

     Do While i < yjscount
      ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1 + yjs(i + 1)
      i = i + 1
     Loop
我是设置当前单元格公式 = 当前单元格公式 + a(i) （变量）
上面运行有错误，   

请教各位怎么实现这个功能。
--------------------编程问答--------------------   ActiveCell.FormulaR1C1   =   ActiveCell.FormulaR1C1   &  "+"  &  cstr( yjs(i   +   1) ) --------------------编程问答-------------------- up --------------------编程问答-------------------- 1 楼为正解。注意这点就行了：.FormulaR1C1 属性的内容是字符串。 --------------------编程问答-------------------- 问题解决了，呵呵。

补充：VB ,  VBA