VBA代码0007:VBA实现单元格公式输入和向下填充

1、进入EXCEL,输入原始数据。

2、同时按下ALT+F11，进入VBA编辑器。

3、在编辑区输入VBA语言

Sub 输入公式向下填充()

    VBA 语言输入公式并向下填充的语句

End Sub

4、3步骤中输入公式和向下填充的语句

Sub 输入公式并向下填充()

      Range("c2") = "=a2*b2"

      Range("c2:c15").FillDown      '向下填充公式

End Sub

5、在工作表中插入表单控件，并指定到宏“输入公式向下填充”。

6、点击按钮后，公式会自动输入到单元格中并自动向下填充，显示公式计算出来的结果。自动计算结果，很好吧。