利用Excel制作电子表格时，有时需要用到计算填充功能，如
所示表中，F列每种元件的价格合计，就是由E列元件单价乘以D列元件数量得来的。通过分析，发现利用Excel97提供的VBA(Visual Basic for Application)功能，写几行Basic代码即可方便地达到自动填充F列数据的目的，且计算结果为纯数据值，可以自由进行处理。具体实现步骤如下：
1.建立Excel工作表，分别填入其它相应的数据，包括E列元件的单价和D列元件数量。
2.点击“视图”→“工具栏”→“Visual Basic”→VB控件工具箱。
3.在整个工作表的底部或适当的位置放置控制按钮“CommandButton1”。
4.双击控制按钮，加入语句：
Private Sub CommandButton1_Click()
Dim i As Integer ’自动填充的行号
Dim rand As String ’工作表D列的范围参数
Dim rane As String ’工作表E列的范围参数
Dim ranf As String ’工作表F列的范围参数
For i=2 To 12 ’12为本例中给出的填充结果行号，可由使用者自己设定
’该循环主要完成工作表F列计算表格的自动填充
rand="D"+CStr(i)
rane="E"+CStr(i)
ranf="F"+CStr(i)
Worksheets("Sheet1").Range(ranf)=Worksheets("Sheet1").Range(rand)*Worksheets("Sheet1").Range(rane)
Next i
End Sub
5.按执行键，就可达到设计要求的计算表格项的自动填充，且填充结果为纯数据。
Excel97提供了VBA功能，使我们可以根据需要对其进行适当的二次开发，仔细研究其用法，会使制作电子表格的工作更加轻松。