在Excel下巧妙进行VBA编程

最近，在做一项实验的统计时，需将十组数据的每一组中的两个数据间分成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