文/焦红兵

　　最近，在做一项实验的统计时，需将十组数据的每一组中的两个数据间分成100等份，填入Excel表中，这十组数据的每一组都有100多个数据。如此巨量的工作，别用手填，就是采用Excel的自动填充大法，也得把人累个半死。于是本人就想到了VBA……

　　目 标

　　1、 要有灵活性，既能计算选定组的全部数据，也能计算一组中选中的连续数据。

　　2、 将数据写在同一工作表中的空白列中。

　　编程代码及注释

　　在VBA编程窗口中新建一模块，填入代码如下：

　　Sub my1()'在这里定义宏名称

　　Dim i As Integer

　　Dim n As Integer

　　Dim s As Integer

　　n=1

　　Dim cellx As Range 'cellx是要参与计算的数据对象

　　Dim celly As Range 'celly是存放计算结果的数据对象

　　Application.ScreenUpdating=False

　　'在进行大量数据运算时，将屏幕更新关掉，能快很多

　　Set celly=Selection.Offset(,13).Cells(1)

　　'定义偏移位置，使数据目标区域能随选择区域的不同，产生自动偏移

　　For Each cellx In Selection'开始运算，直到所选择数据的最后一个

　　Set cellx=Cells(cellx.Row+1,cellx.Column) '从原始数据列的第二行开始，第一行是标题

　　If Cells(cellx.Row+1,cellx.Column)=Empty Then '当选择整列进行运算时，要进行是否结束循环的判断

　　Exit For

　　EndIf

　　Cells(celly.Row+n,celly.Column).Value=cellx.Value

　　'运算数据并填充结果

　　For s=1 To 100

　　n=n+1

　　Cells(celly.Row+n,celly.Column).Value=Cells(celly.Row+n-1,celly.Column).Value+(Cells(cellx.Row+1,cellx.Column).Value-Cells(cellx.Row,cellx.Column).Value)/100

　　Nexts

　　Next cellx

　　Application.ScreenUpdating=True'打开屏幕更新

　　End Sub

　　以上程序在Excel 97中运行通过。