2、打开Visual Basic编辑器,在工程资源管理器中添加一个模块,在该模块的“代码”窗口中输入如下程序代码:
Sub Gongshi()
Sheet1.Range("G2:G20").FormulaR1C1="=sum(rc[-4]:rc[-1])"
End Sub
提示
在VBA中,Range对象的Formula和FormulaR1C1这两个属性都能用来设置公式。Formula属性返回或设置指定对象的公式,该公式是使用A1样式表示的公式;FormulaR1C1属性返回或设置指定对象的公式,该公式是使用R1C1样式表示的公式。
3、按F5键运行程序,指定的单元格区域中将填充公式并获得计算结果,如图2所示。